Macro pour envoyer un mail outlook

Hello everyone i need help

dans un fichier excel j’ai deux feuilles, la première contient des adresses mail et la seconde contient des noms du pays, chacuns correspond à une adresse.

le mail que je veux envoyer est commun.

J'ai besoin d'une macro qui me permet chaque fois que je veux envoyer un email. Je veux mettre le curseur sur la cellule sélectionnée (qui contient le nom du pays), puis appuyer sur le bouton créé avec cette macro qui permet d'envoyer un courrier Outlook.

Quelqu'un peut-il me guider s'il vous plaît

Bonjour,

Voici un essai à adapter

Private Sub testmail()

Dim oi As Object, myItem As Object, olMailItem
Set oi = CreateObject("outlook.application")
Set myItem = oi.CreateItem(olMailItem)
myItem.to = target.adress
myItem.Subject = ""
myItem.CC = ""
myItem.Body = ""

'MsgBox "Le message a été envoyé à " & myItem.to
myItem.display
Set oi = Nothing

End Sub

Merci pour ta réponse mais après avoir tester le code lors d'exécution il s'agit de dbogage sur cette ligne

myItem.to = target.adress

je ne sais pas pourqoi?

J'ai oublié un d c'est target.Address

Je ne suis pas sur à 100% mais c'est une bonne base de début

Bonjour,

j'ai des doutes très sérieux sur myItem.to = target.address parce que l'adresse d'une cellule c'est par exemple $A$1, pas du tout un email !!

je n'ai pas bien compris cette phrase, il faudrait un exemple sur fichier excel

la première contient des adresses mail et la seconde contient des noms du pays, chacuns correspond à une adresse.

le mail que je veux envoyer est commun

il faudra sans doute faire un find

Dans le principe il veut cliquer dessus il faudrait remplacer target.address par target.value peut etre.

C'est ce que j'avais pensé, mais la cellule contient le nom du pays ... donc wait and see a piece of excel file !

Bonjour à tous

voici un fichier excel exemple

25it-locaux.xlsx (11.15 Ko)
25it-locaux.xlsx (11.15 Ko)

Par exemple lorque je veux envoyer un email au maroc je veux cliquer au dessus de cette cellule pour qu'il comprendre que le destinataire est maroc

comment fais-tu le lien entre le pays et l'email ? pour le Maroc par exemple, quel est l'email à utiliser ?

Voici un fichier, j’espère ça te aide

9it-locaux.xlsx (12.35 Ko)

au

8it-locaux.xlsx (12.35 Ko)

Voici

14it-locaux-2.xlsm (21.01 Ko)

bonsoir

merci pour le code mais toujours j'ais l'erreur lors d'execution

(voir photo)

erreur

désolé, comme je ne travaille plus avec outlook

Sub envoyermail(adressemail As String, quoi As String, texte As String)

Dim messagerie As Object
Dim email As Object
Set messagerie = CreateObject("Outlook.Application")
Set email = messagerie.CreateItem(0)

    With email
        .to = adressemail
        .Subject = quoi
        .body = texte
        .ReadReceiptRequested = True
        .display ' à remplacer par .send si ok
    End With

Set email = Nothing
Set messagerie = Nothing

End Sub

Hi

can you help me with this please

body

& vbcrlf & " ..."

c'est ce que j'ai écrit mais tjrs le mémé erreur

Rechercher des sujets similaires à "macro envoyer mail outlook"