rainbow69006
XLDnaute Occasionnel
Bonjour
J'utilise ce code pour envoyer des mails pre ecrit.
Cela marche tres bien par contre comment je dois faire pour que cela saute des lignes dans la partie en gras?
merci
Option Explicit
Sub envoi()
Dim ApplicOutlook As Object
Dim ElémentCourrier As Object
Dim Cellule As Range
Dim Sujet As String
Dim AdresseElec As String
Dim Msg As String
'Création de l'objet Outlook
Set ApplicOutlook = CreateObject("Outlook.Application")
'Extraction des données
Sujet = "Cdes à relancer"
AdresseElec = "mag@rrr.fr"
'Composition du message
Msg = "Merci de bien vouloir me donner un délai"
Msg = Msg & " pour les références citées ci-après"
Msg = Msg & ""
Msg = Msg & "Rows.Select"
'Création de l'élément de courrier et envoi
Set ElémentCourrier = ApplicOutlook.CreateItem(0)
With ElémentCourrier
.To = AdresseElec
'.Cc = ??
.Subject = Sujet
.Body = Msg
.Display
End With
End Sub
J'utilise ce code pour envoyer des mails pre ecrit.
Cela marche tres bien par contre comment je dois faire pour que cela saute des lignes dans la partie en gras?
merci
Option Explicit
Sub envoi()
Dim ApplicOutlook As Object
Dim ElémentCourrier As Object
Dim Cellule As Range
Dim Sujet As String
Dim AdresseElec As String
Dim Msg As String
'Création de l'objet Outlook
Set ApplicOutlook = CreateObject("Outlook.Application")
'Extraction des données
Sujet = "Cdes à relancer"
AdresseElec = "mag@rrr.fr"
'Composition du message
Msg = "Merci de bien vouloir me donner un délai"
Msg = Msg & " pour les références citées ci-après"
Msg = Msg & ""
Msg = Msg & "Rows.Select"
'Création de l'élément de courrier et envoi
Set ElémentCourrier = ApplicOutlook.CreateItem(0)
With ElémentCourrier
.To = AdresseElec
'.Cc = ??
.Subject = Sujet
.Body = Msg
.Display
End With
End Sub