envoyer excel en pdf via outlook vba

Question

Bonjour, 

j'ai fait plusieurs essaie de tous ce que j'ai trouvé sur le net 

celle qui me convient est lla suivantes sauf qu'il me manque juste les 3 lignes complementaire pour inserer automatiquement le sujet et le corp du message
 
Sub EnvoiEmail() 

Dim HyperLien As String 
Dim pj As Variant 

Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
ActiveWorkbook.Path & "\" & "Temporaire.pdf", Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ 
False 

pj = ActiveWorkbook.Path & "\" & "Temporaire.PDF" 


HyperLien = "mailto:" & Cells(1, 1).Value 


ActiveWorkbook.FollowHyperlink HyperLien 

Client = 6 



End Sub 

en fait j'exporte en pdf mon excel en fichier temporaire 
je le nomme 
je mets automatiquement le mail du destinataire qui est dans la cellule A1 
j'ouvre le mail par outlook 

et c'est moi qui clique sur le bouton envoyer car je veut controler avant que ca parte par contre
 
il me manque juste les 3 lignes complementaire pour inserer automatiquement le sujet du mail qui se trouve dans la cellule A2 et le corp du message qui se trouve dans la cellule A3
 
et inserer le pdf temporaire qui s'apelle pj 

merci d'avance pour votre aide

Configuration: Windows 7 / Internet Explorer 9.0

lermite222 · Answer

Bonjour, 
Dans ta solution tu dois ajouter la pièce jointe manuellement. 
Je verrais plutôt.. 
Dans Excel>> 
1°) Sauver le PDF >> ça tu sais faire. 
ensuite tout envoyer par Excel avec.. 
Sub Send_Mail_Outlook() 

'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro, 
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library" 
   Dim ObjOutlook As New Outlook.Application 
   'Dim ObjOutlookmail As MailItem 
   'Dim NomFichier As String 
   Dim oBjMail 
   Dim Nom_Fichier As String 
    
   Set ObjOutlook = New Outlook.Application 
   Set oBjMail = ObjOutlook.CreateItem(olMailItem) 
   'Dans ton cas changer par du Pdf ou mettre directement le chemin et nom du fichier pdf dans Nom_Fichier  
   Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm") 
    If Nom_Fichier = "Faux" Then Exit Sub 
    If VarType(Nom_Fichier) = vbBoolean Then Exit Sub 
   With oBjMail 
        
        .To = "prénom.nom@laboitemail.fr"     ' le destinataire 
        .Subject = "Ici c'est l'objet"          ' l'objet du mail 
        .Body = "Ici le texte du mail "  'le corps du mail ..son contenu 
        .Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier 
        .Display  '   Ici on peut supprimer' pour l'envoyer sans vérification 
        .Send 
   End With 
     
    ObjOutlook.Quit 
    
End Sub
Je pense que c'est le plus concret.
A+ 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

gnioler · Answer

bonjour et merci beaucoup pour ta reponse
par contre comment je programe en vba un message avec des retour a la ligne pour ecrire par exemple

"bonjour
vous trouverez ci joint
le courrier demandé"

et comment je peut rajouter a la suite une signature automatique

lermite222 · Answer

Bonjour,  
Pour le corps du texte..  
Dim Mess as string  
Mess = "Bonjour" & chr(13)  
Mess = Mess & "vous trouverez ci joint" & chr(13)  
Mess = mess & "le courrier demandé"  
et la ligne..  
.Body = "Ici le texte du mail "  'le corps du mail ..son contenu   
devient  
.Body = Mess  'le corps du mail ..son contenu 
Pour la signature je sais pas, j'ai jamais employé mais peut-être..  
remplacer la ligne Body par..  
.HTMLBody = Mess + .HTMLBody
Tu dis  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)  
NOTE : Je ne répond pas aux MP pour les questions techniques.

gnioler · Answer

merci beaucoup
ca marche tres bien par contre pour la signature non
si quelqu'un a une idée je suis preneur

gnioler · Answer

bonjour j'ai trouvé la solution par contre j'ai un dernier souci quand j'execute la macro il me mets une icone du style un logiciel exterieur essaye d'acceder a outlook accepter ou refuser comment je peut faire pour ne plus afficher cette alerte Sub PDFMAIL() ' Dim ObjOutlook As New Outlook.Application Dim oBjMail Dim pj As String Dim Corps As String Dim corp2 As String ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "S:\DEVIS \EN PDF\" & [E10] & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False _ pj = "S:\DEVIS DEFONTAINE\EN PDF\" & [E10] & ".pdf" Set ObjOutlook = New Outlook.Application Set oBjMail = ObjOutlook.CreateItem(olMailItem) If pj = "Faux" Then Exit Sub If VarType(pj) = vbBoolean Then Exit Sub corp2 = "Bonjour, " & "

" _ & "vous trouverez ci joint l'offre de prix " & "
" _ & "je reste à votre disposition pour tous renseignement complémentaire " & "
" _ Corps = "

" & corp2 & "

" With oBjMail .To = Cells(21, 5).Value .CC = "essai@wanadoo.fr" .Subject = "offre de prix " .Attachments.Add pj .HTMLBody = "" .Display .BodyFormat = 2 .GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute .HTMLBody = Corps & oBjMail.HTMLBody .Display End With Kill "S:\DEVIS DEFONTAINE\EN PDF\" & [E10] & ".pdf" oBjMail.Display End Sub

lermite222 · Answer

La piste .HTMLBody était quand même bonne :)

1°) Voir dans Outlook le niveau de sécurité sur les macro
>> Macro >> Sécurité.
2°) Dans Excel ont mettrais la ligne
    Application.DisplayAlerts = False
    '...... le code
    Application.DisplayAlerts = False
Voir dans Outlook pour une commande similaire, attention faudra pas la nommer Application.Displ..  mais ObjOutlook .Displ.. 
Tu est en Entreprise (sur serveur) ? Version d'outlook ?
Sinon, voir dans les alertes d'outlook si tu peu pas arranger ça.

gnioler · Answer

bonjour
1 dans les macro excel et outlook j'ai tous desactivé
2 dans excel je mets les lignes
application.disp..................

mais je le mets ou exactement?

par contre que veut dire commande similaire dans outlook je suis débutant

je suis en entreprise sur serveur avec outlook 2010

j'ai aussi enlever les alertes d"outlook 

mais rien y fait

merci pour votre aide

lermite222 · Answer

Tu a une bonne explication ici
Mais j'ai vu ailleurs.. après le display mettre..    .Display
    SendKeys "^{ENTER}"D'après ce que j'ai vu ça marche.
A+

gnioler · Answer

bonjour et merci beaucoup pur votre aides mais je ne peut pas installer de logiciel sur le serveur donc solution 1 impossible
solution 2 sendkeys.... ca marche mais j'ai toujours le message et je veut garder le mail a l'encran avant de l'envoyer

par contre j'ai peut etre une idée comme programe t on la simultation de touche clavier

exemple 3 tabulation et entrée pour simuler le click sur accepter

lermite222 · Answer

Je ne sais pas bien ce que tu veux en faire mais si ça convient..
    SendKeys "{TAB} {TAB}  {TAB}"A+

gnioler · Answer

en fait je veux lorsque outlook ouvre son message de securité pouvoir aller cliquer sur le bouton accepter mais en vba
par contre j 'ai un souci je ne sais pas ou il faut le mettre dans la programation pour qu'il le fasse au bon moment, pourriez vous m'aidez
merci d'avance

lermite222 · Answer

je sais pas, tu met 2 fois display ? 
Tu affiche 2 fois ? 
Mais c'est après un des display
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

gnioler · Answer

le code que tu m'a donné ne fait pas de tabulation il selectionne les 3 colones suivant la case sélectionné

je cherche a faire des tabulation dans un message d'erreur affiché par outlook

lermite222 · Answer

Behhh... moi je ne fais que répondre à ta question !!
exemple 3 tabulation et entrée pour simuler le click sur accepter
Et je n'ai pas ta config pour pouvoir tester.
Ont va essayer..

    Stop
    With oBjMail
        .To = Cells(21, 5).Value
        .CC = "essai@wanadoo.fr"
        .Subject = "offre de prix "
        .Attachments.Add pj
        .HTMLBody = ""
        Stop
        .Display
        Stop
        .BodyFormat = 2
        .GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
        .HTMLBody = Corps & oBjMail.HTMLBody
        Stop
        .Display
        Stop
    End With
ajoute des stop comme ci-dessus, ça permet de suivre le déroulement de la macro.
tu la lance, ça va s'arrêter sur le premier stop, pour continuer tu tape F5
Le but est de voir exactement quand est généré l'alerte.
il faut que sendKeys soit mis juste après le message.
Tu dis quel stop est juste avant le message

gnioler · Answer

pour repondre a tes display en fait je ne maitrise pas trop le vba
je ne sais pas pourquoi j'en ai mis 2 il en faut qu'un pour garder le mail ouvert mais je ne sais pas ou
pour le reste je vais essayer

gnioler · Answer

le message d'erreur est généré juste apres
.HTMLBody = Corps & oBjMail.HTMLBody

gnioler · Answer

j 'ai mis 
SendKeys "{TAB} {TAB}  {TAB}"
juste apres
.HTMLBody

mais le message reste ouvert il ne se passe rien

gnioler · Answer

il faut peut etre mettre une tempo
et selectioner l'icone active mais ne je sais pas comment on fait

lermite222 · Answer

mais après le tab tu dois mettre le Enter si tu veux que ce soit appliquer 
Edit : Et s'il y a 3 boutons il y a un tab en trop
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

gnioler · Answer

bonjour et merci beaucoup pour votre aide acharné
si j'ai bien saisi voici le nouveau code avec l'insertion des tab et enter, suite a tous ce que l'on a dit
mais le probleme c'est que ca ne marche pas car je crois qu'il faut mettre une tempo juste apres le .HTMLBody car l'icone mets 2 secondes avant de s'ouvrir dites moi ce que vous en pensez

With oBjMail
        .To = Cells(21, 5).Value
        .CC = "essai@wanadoo.fr"
        .Subject = "offre de prix "
        .Attachments.Add pj
        .GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
        .HTMLBody = Corps & oBjMail.HTMLBody
        SendKeys "{TAB} {TAB} {TAB}"
        SendKeys "^{ENTER}"
        .Display
       
    End With

lermite222 · Answer

J'ai aussi dis que si il y à trois boutons il y a un tab en trop, de ce fait tu reviens au premier bouton.
Essaye avec 2 Tab, normalement ça devrais aller même s'il y à un delais.
    SendKeys "{TAB} {TAB}"
    SendKeys "^{ENTER}"
   
Et si vraiment ça va pas essaye avec une tempo de 2 secondes.
    Start = Timer + 2 ' pour 2 secondes
    SendKeys "{TAB} {TAB}"
    SendKeys "^{ENTER}"
    While Timer < Start
        DoEvents
    Wend

gnioler · Answer

bonjour
et merci encore une fois
pour la tabulation j 'ai vérifié il en faut bien 3 car l'icone microsoft outlook qui s'ouvre contient 3 bouton et 1 case a coché qui sert a rien et pour arriver au bon bouton j'ai essayer avec le clavier il faut 3 tab pour la tempo j'essayerai plus tard

gnioler · Answer

petit résumé apres plusieurs essaye de tempo avec et sans en le mettant a different endroit
en fait lorsque le prog arrive a la ligne 
.HTMLBody il génère l icone mais bloque tous le programe ainsi que excel et outlook impossible d'avancer a la ligne suivante du programe tout est bloqué tant que l'on a pas cliqué sur accepter
et si on mets le bout de programe juste avant ca sert a rien
j'ai aussi essayé avec application.displayalert false 
ca ne marche pas non plus
en fait l ouverture du message de securite outlook stope tout
comment peut t on faire pour simuler 3 tab et entrer???????????
je suis a cour d'idée

lermite222 · Answer

Explique en détail comment ça se déroule quand tu dis "ça marche" ??
Apparemment ça marchait pas ??
quel est le libellé des 3 boutons ?
Ennuyant, j'ai Outlook 2000 mais y va pas sur Vista de ce fait je sais pas tester de mon côté.

gnioler · Answer

bonjour je vais essayer d'etre le plus precis possible pour résumé l'action du click sur l'icone accepter ne marche pas par contre tous le reste de la macro marche tres bien, il me faut juste la ligne de prog qui ira cliquer sur l'icone eccepter voici la macro avec les commentaires Sub PDFMAIL() ' Dim ObjOutlook As New Outlook.Application Dim oBjMail Dim pj As String Dim Corps As String Dim corp2 As String ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "S:\DEVIS \EN PDF\" & [E10] & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False _ pj = "S:\DEVIS\EN PDF\" & [E10] & ".pdf" Set ObjOutlook = New Outlook.Application Set oBjMail = ObjOutlook.CreateItem(olMailItem) If pj = "Faux" Then Exit Sub If VarType(pj) = vbBoolean Then Exit Sub corp2 = "Bonjour, " & "

" _ & "vous trouverez ci joint l'offre de prix " & "
" _ & "je reste à votre disposition pour tous renseignement complémentaire " & "
" _ Corps = "

" & corp2 & "

" With oBjMail .To = Cells(21, 5).Value .CC = "essai@wanadoo.fr" .Subject = "offre de prix " .Attachments.Add pj .GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute 'jusque là tous va bien .HTMLBody = Corps & oBjMail.HTMLBody 'juste apres avoir exécuté la lgne ci dessus une icone microsoft outlook s'ouvre 'bloque tous les programes excel et outlook ainsi que la macro et attend que 'l'on clique sur un des trois choix ' accepter refuser aide "une case a cocher qui sert a rien" ' et uniquement lorsque l'on clique sur 1 des 3 choix la macro repart .Display End With Kill "S:\DEVIS\EN PDF\" & [E10] & ".pdf" oBjMail.Display End Sub

lermite222 · Answer

1°)Tu n'a pas répondu à ma question !! relis la convenablement Stp
2°)Faut sûrement pas de tab puisque le premier bouton est.. accepter

gnioler · Answer

1) désolé si j'ai pas tout a fait répondu a ta question mais je suis débutant la dedans et defois je ne comprend pas tout.
si je reprend precedement
- j'ai essayer d'expliqué en detail la procedure, et le probleme
- en conclusion les differentes procedure essayé (la simulation du click) ne marche pas

2) par contre pour les tab je pense qu'il en faut 3 car quand l'icone s'ouvre par default on est sur refuser et si j'appuie sur 3 fois tab je tombe sur accepter

dit moi si j'ai repondu a ta demande 
merci d'avance et désolé

VAL95100 · Answer

Bonsoir,

Savez vous comment envoyer une feuille excel 2007 par Outlook.
Une feuille seulement (pas le classeur entier)

gnioler · Answer

en vba oui je pense je l'est eu fait il faut juste que je retrouve le modele

lermite222 · Answer

VAL95100 >> Au début de la macro pour envoyer par Mail il faut..
Ouvrir un nouveau classeur.
Copier la page que tu veux envoyer dans ce nouveau classeur
Eventuellement supprimer les autre feuilles.
Et envoyer le nouveau classeur.
gnioler >> Je suis à cour d'idée sauf.. A la place de faire la macro dans Excel faire la macro dans Oulook, 
Excel ne posant pas ce genre de problème.
Mais comme dit plus haut je ne peu pas t'aider pour le VBA d'outlook.

Mike-31 · Answer

Il est inutile de multiplier les demandes identiques et même fortement déconseillé, 
deux le 08 janvier dont une  mise en statut résolu
une nouvelle le 13 et plusieurs autres demandes en doublons,

regarde la pièce jointe voir si ça ressemble à ce que tu cherches

https://www.cjoint.com/?BAulEzPKIZZ

VAL95100 · Answer

Merci beaucoup, je vais tenter de m'exercer et te tiens au courant.
Merci encore !

Bonne soirée

Mike-31 · Answer

Re,

Je voudrais comprendre qui est le demandeur Gnioler ou Val !

gnioler · Answer

bonjour et merci a tous pour votre aides fort sympathique et désolé pour l'attente mais plus d'internet pendant 4 jours

mike 31 désolé mais j'avais fait 2 demande car je ne savais pas dans quel forum il falait la mettre, hors ne sachant pas comment le suprimer je l'ai marqué comme résolu
au fait mike 31 c 'est moi le demandeur, je pense que VAL95100 est là pour donner un coup de main a lermitte 222
j'ai essayé l'exemple que tu m'a mis en lien et ca a l'air de marcher par contre je vais le compiler dans ma feuille et je vous tient tous au courant
merci d'avance

gnioler · Answer

rebonjour mike31

j'ai deja essayé cette macro que j'avais trouvé sur le net mais je n'était pas arrivé a la mettre en forme comme je le voulais donc j'avais abandonné
elle marche tres bien car elle ne génère pas de message d'erreur par contre
j'ai un petit souci je voudrait savoir comment je fait pour mettre le signature automatique qui est enregistré quand je rédige un nouvel email
car ca va servir a 7 personnes differentes avec chacune leur signature auto enregistré dans leur outlook

Envoyer excel en pdf via outlook vba

35 réponses

Discussions similaires

Newsletters