Saut de ligne macro VBA = Outlook

Question

Bonjour,

J'ai crée une macro Excel qui permet d'envoyer un mail (ouverture de outlook et envoi de mail).

Mon probleme est que j'arrive pas à sauter des ligne dans le corp de mon texte Outlook :

Voici mon code :

Sub Outlook()


'********************************************************************************
'La fonction sert a envoyer un mail via excel en définissant tous les attribut
'********************************************************************************


Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem


' MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add


'******************************************************
'Avec la fonction MailItem défini par olMailItem
'Subject = objet du mail
'.to = destinataire du mail
'.cc = copie du mail
'.bcc = copie caché du mail
'.body = le corps du mail
'******************************************************


With olMailItem
.Subject = "Fichier rejets RESERVEA"


'.To = "[mailto:xx@xx.com xx@xx.com]"
'.To =  "[mailto:xx@xx.com xx@xx.com]"
'.To =  "[mailto:xx@xx.com xx@xx.com]"
.CC = "[mailto:xx@xx.com xx@xx.com]"
.Body = "Ci-joint le fichier des rejets RESERVEA complété à J-1"




.Attachments.Add "V:\BDDF\DSI\PMS\DPS\TMACGEN\Homologation-Gestion\GESTIONNAIRES\VEL\Suivi gestionnaire\POINTAGE\REJETS_Reservea2007.xls" ' & SOCiete & "" & Nomvar, olByValue, , "C:\Documents and Settings\X074310\Bureau\Image0001.JPG"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing
End Sub


************************************************************

Mon probleme est au niveau de .Body. J'aimerai faire un texte du genre : 
Bonjour,

Voici le fichier.

Cordialement.

Mais je ne sais pas comment sauter une ligne entre chaque phrase

cs_casy · Answer

peut-etre .Body =   "Bonjour," & vbCRLF & "Voici le fichier." & vbCRLF & "Cordialement." 		 

  ---- Sevyc64  (alias Casy) ----  <hr size  ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

scudi · Answer

Nikel !!!! Ca fonctionne.
Merci beaucoup et très bonne journée

*Et hop un heureux en plus *

cs_epaminondas · Answer

Bonjour,
est-il possible de faire figurer dans le Body, un fichier?
... au lieu de le mettre dans attachmente.
Merci

Saut de ligne macro VBA => Outlook

3 réponses

Votre réponse

Discussions similaires