kikouyou
XLDnaute Junior
bien le bonsoir amis passionnés,
je cherche a envoyé par publipostage un fichier et tout ca en le pilotant d'excel naturellement....
J'ai une liste sous un le fichier excel actif qui contient 750 adresses mail. la premiere adresse en A1.
Mon probleme est que j'attache un fichier au mail mais je souhaiterai un publipostage avec un fichier word. J'ouvre une nouvelle societe et je souhaiterais ma faire connaitre. Mon fichier est pret il reste a le glisser ds le cors du mail. Je ne sais pas l'exprimer par code VBA....
quelqu'un pourrait-il m'aider?
voici le code elaboré :
Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Range("a1").Select ( premiere adresse mail )
Dim kikou As Variant
While ActiveCell <> ""
kikou = ActiveCell.Value
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = kikou
.Subject = "bien le bonjour chez vous"
.Body = "Contenu " & Range("a2").Value
.Attachments.Add "c:\test1\kikouyou.txt"
.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Wend
End Sub
Je vous remercie par avance
je cherche a envoyé par publipostage un fichier et tout ca en le pilotant d'excel naturellement....
J'ai une liste sous un le fichier excel actif qui contient 750 adresses mail. la premiere adresse en A1.
Mon probleme est que j'attache un fichier au mail mais je souhaiterai un publipostage avec un fichier word. J'ouvre une nouvelle societe et je souhaiterais ma faire connaitre. Mon fichier est pret il reste a le glisser ds le cors du mail. Je ne sais pas l'exprimer par code VBA....
quelqu'un pourrait-il m'aider?
voici le code elaboré :
Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Range("a1").Select ( premiere adresse mail )
Dim kikou As Variant
While ActiveCell <> ""
kikou = ActiveCell.Value
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = kikou
.Subject = "bien le bonjour chez vous"
.Body = "Contenu " & Range("a2").Value
.Attachments.Add "c:\test1\kikouyou.txt"
.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Wend
End Sub
Je vous remercie par avance