Excel + macro + Outlook + PDF creator : envoyer automatiquement des fichiers pdf par mail

Le
Ben de Pont-Aven, ça farte !!!
Bonjour à tous !

Alors voila le problème :
Je transforme en pdf des fichiers excel 2003, via PDF Creator. Ils
sont tous enregistrer automatiquement dans un même et unique
répertoire.
J'ai une macro excel qui me liste les fichiers dans ce répertoire.
Je voudrais tous les envoyer automatiquement par mail, via macro
excel.
Outlook demande à cliquer sur le bouton Oui afin d'éviter d'envoyer
des virus ou du spam. Le logiciel ClickYes m'affranchis de cette
manipulation.
Donc mon problème est de réussir à faire comprendre à Excel qu'il do=
it
envoyer par mail via Outlook tous les fichiers pdf listé dans Excel.

Me suis je bien fais comprendre ? Merci d'avance pour votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5445841
Bonsoir.
Dans un seul message, ou 1 fichier par courrier ?
Cordialement.
Daniel
"Ben de Pont-Aven, ça farte !!!" message de news:

Bonjour à tous !

Alors voila le problème :
Je transforme en pdf des fichiers excel 2003, via PDF Creator. Ils
sont tous enregistrer automatiquement dans un même et unique
répertoire.
J'ai une macro excel qui me liste les fichiers dans ce répertoire.
Je voudrais tous les envoyer automatiquement par mail, via macro
excel.
Outlook demande à cliquer sur le bouton Oui afin d'éviter d'envoyer
des virus ou du spam. Le logiciel ClickYes m'affranchis de cette
manipulation.
Donc mon problème est de réussir à faire comprendre à Excel qu'il doit
envoyer par mail via Outlook tous les fichiers pdf listé dans Excel.

Me suis je bien fais comprendre ? Merci d'avance pour votre aide.
Ben de Pont-Aven, ça farte !!!
Le #5445451
Je souhaite le faire dans un seul message à l'origine, mais les 2
solutions peuvent m'interesser.
Merci.

On 9 avr, 20:55, "Daniel.C"
Bonsoir.
Dans un seul message, ou 1 fichier par courrier ?
Cordialement.
Daniel


Daniel.C
Le #5445311
Tu dois tout d'abord, dans la fenêtre VBE, cliquer sur Outils, Références et
cocher "Microsoft Outlook xx Object Library".
Pour en voyer tous les fichiers en un seul message, utilise le code suivant
(en modifiant le destinataire, le chemin du dossier où se trouvent les
fichiers ainsi que le sujet et le corps du message. Tu peux visualiser le
message en remplaçant la commande "Send" par "Display" :

Sub EnvoiMail1()
'Envoi d'un message avec toutes les pièces jointes
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String, fich As String

' Chemin où se trouvent les fichiers - à modifier
Const Chemin = "e:donneesdaniel"
' Ici, code le destinataire
Desti = ""
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
fich = Dir(Chemin & "*.pdf")
Do While fich <> ""
.Attachments.Add Chemin & fich
fich = Dir
Loop
.Subject = "Sujet"
.Body = "Message de test"
.Recipients.Add Desti
.Send
End With
End Sub

Pour faire un message par fichier :

Sub EnvoiMail2()
'Envoi d'un message par pièce jointe
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.MailItem, Desti As String
Dim PJ As String, fich As String

' Chemin où se trouvent les fichiers - à modifier
Const Chemin = "e:donneesdaniel"
' Ici, code le destinataire
Desti = ""
Set OutlookApp = Outlook.Application
fich = Dir(Chemin & "*.pdf")
Do While fich <> ""
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.Attachments.Add Chemin & fich

.Subject = "Sujet"
.Body = "Message de test"
.Recipients.Add Desti
.Display
.Send
End With
fich = Dir
Loop
End Sub

Daniel
"Ben de Pont-Aven, ça farte !!!" message de news:

Je souhaite le faire dans un seul message à l'origine, mais les 2
solutions peuvent m'interesser.
Merci.

On 9 avr, 20:55, "Daniel.C"
Bonsoir.
Dans un seul message, ou 1 fichier par courrier ?
Cordialement.
Daniel


Ben de Pont-Aven, ça farte !!!
Le #5445121
Merci ca marche parfaitement bien !
Publicité
Poster une réponse
Anonyme