envoi par mail

1

bonjour,

pouvez-vous m'aider, je cherche comment envoyer en automatique suivant certaines conditions, le contenu d'une cellule sur la messagerie de la personne concernée?

Posté le 3 novembre 2014, 15:43
par patrice
Répondre
0

C'est possible seulement si Outlook est installé sur l'ordinateur depuis lequel tu veux envoyer le mail (excel n'a pas de client mail natif donc on est obligé d'utiliser Outlook via l'API).

J'ai trouvé un tuto qui explique comment faire, avec une macro : http://www.rondebruin.nl/win/s1/outlook/amail4.htm

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With Dest
    .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
    On Error Resume Next
    With OutMail
        .to = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hi there"
        .Attachments.Add Dest.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0
    .Close savechanges:=False
End With
Vince Posté le 3 novembre 2014, 18:13
par Vince

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :