outlook

[coolman]

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

est ce que quelqu'un peu m'aider

 

[MichelXld]

bonjour

j'espere que cet exemple pourra t'aider

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

Set OlItem = Nothing
Set OlApp = Nothing



bonne soirée
MichelXld

 

[pat1545.]

Salut,

une adresse à suivre ===>

http://www.rondebruin.nl/mail/change.htm


Patrick

 

[coolman]

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

 

[MichelXld]

bonsoir Coolman , rebonsoir Patrick

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 ...'



bonne soirée
MichelXld