Envoi d'emails groupés via macro excel Fermé

Question

Bonjour,

j'arrive en utilisant une macro excel à émettre des mails, mon soucis est le suivant : Si dans une cellule j'écris un texte les retours chariot (mise à la ligne) ne sont pas transmis. Le résultat est peu lisible... J'ai aussi tenté de les expédiés via le chargement d'un fichier texte dans des string séparés  et suivis d'une Chr(10) ou chr(13) (ou les 2). rien n'y fait. QQ'un a-t-il une solution ? Merci

ludionlor · Answer

Voilà le code correspondant à ma question 

Sub Macro1()

Dim MailAd As String
Dim Msg, Ligne As String
Dim Subj As String
Dim URLto As String

    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")

    If Fichier = False Then
        MsgBox "Vous n'avez pas selectionné de fichier TEXTE !"
        Exit Sub
    End If
    Open Fichier For Input As #1
        Do While Not EOF(1)
            Line Input #1, Ligne
            Msg = Msg + Ligne + Chr(10)  '<-- Si on place Chr(13) idem
        Loop
    Close #1
    MailAd = Range("d10")   ' <--Cellule D10 : adresse destinataire
    Subj = Range("d2")         ' <-- Cellule D2 sujet du mail
    URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
    ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Envoi d'emails groupés via macro excel

1 réponse

Discussions similaires