Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem
Dim ToContact As Outlook.Recipient
Set OLF = GetObject("", _
"Outlook.Application" ).GetNamespace("MAPI" ).GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add
With olMailItem
.Subject = range("A1" ) 'Titre du message
Set ToContact = .Recipients.Add(Range("A2" )) 'Destinataire
.HTMLBody = Range("A3" ) 'Corps du message
OU '.Body = Chr(13) & Chr(13) & ActiveSheet.Range("a9" ) & Chr(13) & Chr(13) & ActiveSheet.Range("a12" ) 'histoire de montrer comment on va à la ligne en non html
.Attachments.Add repertoire, olByValue, , fichier
.Display 'ou .send pour l'envoyer de suite
End With
Bien sûr, il faut mettre une référence à Microsoft Outlook dans le menu outil référence.
Code à untégrer dans une sub (que j'ai pas mis)
Message édité par azertylmv le 08-11-2004 à 23:56:59