Envoyer excel en pdf via outlook vba

Réponse 2 / 35

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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+

Réponse 3 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 4 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 35

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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.

Nore

Merci lermite222

Réponse 6 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 7 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 8 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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, " & "<br><br>" _
& "vous trouverez ci joint l'offre de prix " & "<br>" _
& "je reste à votre disposition pour tous renseignement complémentaire " & "<br>" _

Corps = "<DIV align=left><FONT Size = 4> " & corp2 & " </FONT></DIV>"

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

cfaure Messages postés 2 Date d'inscription Statut Membre Dernière intervention

Bonjour,
Je dois également insérer une signature.
J'ai récupéré ton code mais la signature apparait en haut du corps du mail, avant le texte..... comment faire pour que celle-ci soit tout en bas?
PS: je débute en VBA.
Merci par avance

Voici mon code actuel :

With ol.CreateItem(0)
.To = MailAd
.CC = MailAdC
.Subject = Subj
.HTMLBody = ""
.display
.HTMLBody = RangetoHTML(rng)
.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
.display

megatronnbjja Messages postés 63 Date d'inscription Statut Membre Dernière intervention

Bonjour,

J'ai essayé votre solutions et tout fonctionne bien tant que je suis sur un poste équipé d'office 2010.
Par contre, sur des postes équipés d'office 2013, j'ai le message d'erreur suivant:
"Erreur d'éxecution '5'"
à la ligne:

.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute

Savez vous d'où cela peut venir?

Merci d'avance.

Megatron

Réponse 9 / 35

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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.

Réponse 10 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 11 / 35

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Je ne sais pas bien ce que tu veux en faire mais si ça convient..

    SendKeys "{TAB} {TAB}  {TAB}"

A+

Réponse 12 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 13 / 35

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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.

Réponse 14 / 35

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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

Réponse 15 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 16 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 17 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

j 'ai mis
SendKeys "{TAB} {TAB} {TAB}"
juste apres
.HTMLBody

mais le message reste ouvert il ne se passe rien

Réponse 18 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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

Réponse 19 / 35

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

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.

Réponse 20 / 35

gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention 3

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

Envoyer excel en pdf via outlook vba

35 réponses

Votre réponse

Discussions similaires