Saut ligne ds corps mail par macro excel
Bonjour,
J'aurais souhaité savoir s'il était possible de faire des sauts de lignes dans le corps d'un email envoyé par macro excel avec Outlook ?
Voici le code :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim i As Integer
Dim Qui(250) As String
Dim Mail(250) As String
Dim Tache(250) As String
For i = 1 To 246
If Range("K" & i).Value = "Retard" Then
Qui(i) = Range("D" & i).Value
Mail(i) = Range("M" & i).Value
Tache(i) = Range("A" & i).Value
MsgBox ("Il y a du RETARD dans l'execution d'une tâche." & Chr(13) & "Cette tâche concerne l'interlocuteur suivant : " & Chr(13) & Qui(i))
MailAd = "" & Mail(i)
Subj = "retard "
Msg = "Bonjour, je viens de voir qu'il y avait du retard dans l'éxecution de : " & Tache(i) Passage à la ligne "Pourriez-vous régulariser cela asez rapidement ? " Passage à la ligne "Cordialement"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
End Sub
J'aurais souhaité savoir s'il était possible de faire des sauts de lignes dans le corps d'un email envoyé par macro excel avec Outlook ?
Voici le code :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim i As Integer
Dim Qui(250) As String
Dim Mail(250) As String
Dim Tache(250) As String
For i = 1 To 246
If Range("K" & i).Value = "Retard" Then
Qui(i) = Range("D" & i).Value
Mail(i) = Range("M" & i).Value
Tache(i) = Range("A" & i).Value
MsgBox ("Il y a du RETARD dans l'execution d'une tâche." & Chr(13) & "Cette tâche concerne l'interlocuteur suivant : " & Chr(13) & Qui(i))
MailAd = "" & Mail(i)
Subj = "retard "
Msg = "Bonjour, je viens de voir qu'il y avait du retard dans l'éxecution de : " & Tache(i) Passage à la ligne "Pourriez-vous régulariser cela asez rapidement ? " Passage à la ligne "Cordialement"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
End Sub
Configuration: Windows XP Internet Explorer 6.0