Excel + macro + Outlook + PDF creator : envoyer automatiquement des fichiers pdf par mail
4 réponses
Ben de Pont-Aven, ça farte !!!
Bonjour =E0 tous !
Alors voila le probl=E8me :
Je transforme en pdf des fichiers excel 2003, via PDF Creator. Ils
sont tous enregistrer automatiquement dans un m=EAme et unique
r=E9pertoire.
J'ai une macro excel qui me liste les fichiers dans ce r=E9pertoire.
Je voudrais tous les envoyer automatiquement par mail, via macro
excel.
Outlook demande =E0 cliquer sur le bouton Oui afin d'=E9viter d'envoyer
des virus ou du spam. Le logiciel ClickYes m'affranchis de cette
manipulation.
Donc mon probl=E8me est de r=E9ussir =E0 faire comprendre =E0 Excel qu'il do=
it
envoyer par mail via Outlook tous les fichiers pdf list=E9 dans Excel.
Me suis je bien fais comprendre ? Merci d'avance pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonsoir. Dans un seul message, ou 1 fichier par courrier ? Cordialement. Daniel "Ben de Pont-Aven, ça farte !!!" a écrit dans le 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.
Bonsoir.
Dans un seul message, ou 1 fichier par courrier ?
Cordialement.
Daniel
"Ben de Pont-Aven, ça farte !!!" <benoitdubourg@gmail.com> a écrit dans le
message de news:
f1df3d4a-a8c3-428e-a2de-c40b6b2652d1@b9g2000prh.googlegroups.com...
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.
Bonsoir. Dans un seul message, ou 1 fichier par courrier ? Cordialement. Daniel "Ben de Pont-Aven, ça farte !!!" a écrit dans le 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 !!!
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" wrote:
Bonsoir. Dans un seul message, ou 1 fichier par courrier ? Cordialement. Daniel
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" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Dans un seul message, ou 1 fichier par courrier ?
Cordialement.
Daniel
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" wrote:
Bonsoir. Dans un seul message, ou 1 fichier par courrier ? Cordialement. Daniel
Daniel.C
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 !!!" a écrit dans le 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" wrote:
Bonsoir. Dans un seul message, ou 1 fichier par courrier ? Cordialement. Daniel
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 = "dcolardelle@cretin.fr"
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 = "dcolardelle@cretin.fr"
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 !!!" <benoitdubourg@gmail.com> a écrit dans le
message de news:
5d03a6a2-053c-4bbe-a5ab-cc8182498587@m73g2000hsh.googlegroups.com...
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" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Dans un seul message, ou 1 fichier par courrier ?
Cordialement.
Daniel
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 !!!" a écrit dans le 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" wrote:
Bonsoir. Dans un seul message, ou 1 fichier par courrier ? Cordialement. Daniel