envoie de fichier excel/mail

[Jlou]

bonjour a tous
j'essaie d'inserer automatiquement un texte dans le corps de message lorsque j'envoie un fichier excel par macro (outlook)

tout fonctionne sauf le corps de message

est ce que qq'un peut m'aider

je vous en remercie
Cordialement

 

[MichelXld]

Re : envoie de fichier excel/mail

bonjour

tu peux essayer cette autre methode

Sub mail_envoi()
    'necessite d'activer la reference Microsoft Outlook xx.x Object Library
    Dim Ol As Outlook.Application
    Dim olMail As MailItem
 
    Set Ol = New Outlook.Application
    Set olMail = Ol.CreateItem(olMailItem)
 
    ActiveWorkbook.Save
 
    With olMail
        .To = "[EMAIL="leForum@xld.fr"]leForum@xld.fr[/EMAIL]"
        .Subject = "Le sujet traité "
        .Body = "Bonjour , " & vbLf & "Vous trouverez ci joint..."
        .Attachments.Add ActiveWorkbook.FullName
        .Send 
End With
 
    ActiveWorkbook.Close SaveChanges = True
End Sub

bonne soiree
michel

 

[Jlou]

Re : envoie de fichier excel/mail

bonjour

Merci michel
c'est super