Envoi d'emails groupés via macro excel
ludionlor
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
ludionlor Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
ludionlor Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Envoi d'emails groupés via macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
1 réponse
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
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