bonjour,
j'ai fais un code qui enregistrer le fichier excel et qui imprimer, et aussi j'arrive a ouvrir outlook et insérer le fichier en question mais je voudrais qu'il y ai deja la liste a envoie mais je ne fais pas comment je peux faire.
Dans outlook j'ai defini deux list de distribution
Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem
'
' necessite d'activer la reference microsoft outlook 10.0 object library
'
Set OlItem = OlApp.CreateItem(olMailItem)
With OlItem
.To = 'le Nom de la Liste De Diffusion'
.Subject = 'Le titre du message'
.body = 'Le corps du message ...'
.Attachments.Add 'C:\\\\\\\\monFichier.xls'
'.display
.Save
.send
End With
bonjour et merci pour vos réponse, cela fonctionne , mais le problème c'est que je voudrais avoir la fenetre new message et la ajouter par macro la liste de diffusion ou alors les adresse email
est ce possible, merci
peux tu preciser ce que tu appelles 'la fenetre new message'
pour ajouter plusieurs destinataires par macro :
With OlItem
.Recipients.Add 'contact1@mail.fr'
.Recipients.Add 'nomDeLaListeDeDiffusion'
.Subject = 'Le titre du message'
.body = 'Le corps du message ...'