envoi fichier pdf sous excel avec message automatique
1 réponse
JNH
Bonjour,
Sous excel, j'aimerais utiliser la fonction "envoyer comme pièce jointe au
format PDF" mais ajouter, en plus, un texte automatique.
Ex : envoi de tarif + texte automatique : Merci pour votre demande...cdlt..."
Quelqu'un peut-il m'aiguiller SVP ?
Je suis sous Office 2007.
Merci.
JN
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
Bonjour. La fonction utilise la commande "SendMail" qui te permet de remplir automatiquement le destinataire, le sujet, mais tu ne peux rien mettre en automatique. Si tu utilises Outlook comme client messagerie, tu peux utiliser le code suivant :
Sub test() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:temptemp.pdf" Set olApp = CreateObject("Outlook.application") Set m = olApp.CreateItem(olMailItem) With m .Subject = "Sujet" .Body = "Corps du message" .Recipients.Add "" .Attachments.Add "c:temptemp.pdf" .Send Kill "c:temptemp.pdf" End With End Sub
Daniel
Bonjour, Sous excel, j'aimerais utiliser la fonction "envoyer comme pièce jointe au format PDF" mais ajouter, en plus, un texte automatique. Ex : envoi de tarif + texte automatique : Merci pour votre demande...cdlt..." Quelqu'un peut-il m'aiguiller SVP ? Je suis sous Office 2007. Merci. JN
Bonjour.
La fonction utilise la commande "SendMail" qui te permet de remplir
automatiquement le destinataire, le sujet, mais tu ne peux rien mettre
en automatique. Si tu utilises Outlook comme client messagerie, tu peux
utiliser le code suivant :
Sub test()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,
Filename:="c:temptemp.pdf"
Set olApp = CreateObject("Outlook.application")
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Sujet"
.Body = "Corps du message"
.Recipients.Add "test@test.com"
.Attachments.Add "c:temptemp.pdf"
.Send
Kill "c:temptemp.pdf"
End With
End Sub
Daniel
Bonjour,
Sous excel, j'aimerais utiliser la fonction "envoyer comme pièce jointe au
format PDF" mais ajouter, en plus, un texte automatique.
Ex : envoi de tarif + texte automatique : Merci pour votre
demande...cdlt..." Quelqu'un peut-il m'aiguiller SVP ?
Je suis sous Office 2007.
Merci.
JN
Bonjour. La fonction utilise la commande "SendMail" qui te permet de remplir automatiquement le destinataire, le sujet, mais tu ne peux rien mettre en automatique. Si tu utilises Outlook comme client messagerie, tu peux utiliser le code suivant :
Sub test() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:temptemp.pdf" Set olApp = CreateObject("Outlook.application") Set m = olApp.CreateItem(olMailItem) With m .Subject = "Sujet" .Body = "Corps du message" .Recipients.Add "" .Attachments.Add "c:temptemp.pdf" .Send Kill "c:temptemp.pdf" End With End Sub
Daniel
Bonjour, Sous excel, j'aimerais utiliser la fonction "envoyer comme pièce jointe au format PDF" mais ajouter, en plus, un texte automatique. Ex : envoi de tarif + texte automatique : Merci pour votre demande...cdlt..." Quelqu'un peut-il m'aiguiller SVP ? Je suis sous Office 2007. Merci. JN