Envoi EMAIL via Excel

[jeanbar920]

Bonjour,
Malgré mes nombreuses recherches infructueuses, je cherche une macro excel qui me permette d'envoyer des email. C'est à dire :
colonne A : adresses internet
colonne B : deux ou trois lettres (identification de personnes pour une association : EZ ou PR...)
+ envoi d'un fichier *.txt (convocation...)
Merci pour vos renseignements.

Message envoyé avec : Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.0.3) Gecko/2008092417 Firefox/3.0.3

[Invité]

Quel rapport avec Mozilla Firefox : le navigateur ?

[jeanbar920]

Oups,
Je pensais être sur le forum Thunderbird...
Mea maxima culpa!

Message envoyé avec : Mozilla/5.0 (Windows; U; Windows NT 6.0; fr; rv:1.9.0.3) Gecko/2008092417 Firefox/3.0.3

[jpj]

Je déplace sans conviction dans la section Thunderbird vu que cela concerne surtout Excel.

[Pastisman]

Bonjour,

Tu peux t'inspirer de ça :

Code : Tout sélectionner

Sub SendMail()
   Dim StrCommand As String
   StrCommand = """C:\Program Files\Mozilla Thunderbird\thunderbird.exe"" -compose to=""adresse@fai.fr"",subject=""Essai excel"",body=""Something else"",attachment=C:\users\moi\Temp\envoi.txt"
   iret = Shell(StrCommand, vbNormalFocus)
   SendKeys ("^~")
End Sub

Message envoyé avec : Mozilla/5.0 (Windows; U; Windows NT 5.2; fr; rv:1.9.0.3) Gecko/2008092417 Firefox/3.0.3

[GroVoiRi]

[quote="Pastisman"]Bonjour,

Tu peux t'inspirer de ça :

Code : Tout sélectionner

Sub SendMail()
   Dim StrCommand As String
   StrCommand = """C:\Program Files\Mozilla Thunderbird\thunderbird.exe"" -compose to=""adresse@fai.fr"",subject=""Essai excel"",body=""Something else"",attachment=C:\users\moi\Temp\envoi.txt"
   iret = Shell(StrCommand, vbNormalFocus)
   SendKeys ("^~")
End Sub

Attention à la syntaxe du fichier en "attachment". Il faut utiliser le préfixe "file:///" et remplacer les "" par des "/"

Code : Tout sélectionner

   StrCommand = """C:\Program Files\Mozilla Thunderbird\thunderbird.exe"" -compose to=""adresse@fai.fr"",subject=""Essai excel"",body=""Something else"",attachment="file:///C:/users/moi/Temp/envoi.txt"

[GroVoiRi]

Voici la macro, à mettre dans le classeur PERSO.XLS.
Validée avec TB 2.0.0.17 et Excel 2k & XP, sous Win2kSp4 & WinXpSp3

Code : Tout sélectionner

Sub EnvMail()

    THUNDERBIRD = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"
    sRepTemp = Environ("TEMP")
    sNomClass = ActiveWorkbook.Name
    sNomOngle = ActiveWorkbook.ActiveSheet.Name
    sNomFic = sRepTemp & "\" & sNomClass & "_" & sNomOngle & ".htm"
    
    sNomFic = Replace(sNomFic, "à", "a")
    sNomFic = Replace(sNomFic, "â", "a"): sNomFic = Replace(sNomFic, "ä", "a")
    sNomFic = Replace(sNomFic, "Â", "A"): sNomFic = Replace(sNomFic, "Ä", "A")
    sNomFic = Replace(sNomFic, "ç", "c")
    sNomFic = Replace(sNomFic, "é", "e"): sNomFic = Replace(sNomFic, "è", "e")
    sNomFic = Replace(sNomFic, "ê", "e"): sNomFic = Replace(sNomFic, "ë", "e")
    sNomFic = Replace(sNomFic, "Ê", "E"): sNomFic = Replace(sNomFic, "Ë", "E")
    sNomFic = Replace(sNomFic, "î", "i"): sNomFic = Replace(sNomFic, "ï", "i")
    sNomFic = Replace(sNomFic, "Î", "I"): sNomFic = Replace(sNomFic, "Ï", "I")
    sNomFic = Replace(sNomFic, "ô", "o"): sNomFic = Replace(sNomFic, "ö", "o")
    sNomFic = Replace(sNomFic, "Ô", "O"): sNomFic = Replace(sNomFic, "Ö", "O")
    sNomFic = Replace(sNomFic, "ù", "u")
    sNomFic = Replace(sNomFic, "û", "u"): sNomFic = Replace(sNomFic, "ü", "u")
    sNomFic = Replace(sNomFic, "Û", "U"): sNomFic = Replace(sNomFic, "Ü", "U")
    sNomFic = Replace(sNomFic, "ÿ", "y")
    
    With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        sNomFic, sNomOngle, "", xlHtmlStatic, "", sNomClass)
        .Publish (True)
    End With
    sNomPj = Replace(sNomFic, "\", "/")
    sCmd = Chr(34) & THUNDERBIRD & Chr(34) & _
           " -compose subject=" & _
           Chr(34) & sNomOngle & Chr(34) & _
           ",attachment=" & _
           Chr(34) & "file:///" & sNomPj & Chr(34)
    iRet = Shell(sCmd, vbNormalFocus)
End Sub