Mail PDF Outlook

[yoyo77]

Bonjour à tous,

Je recherche de l'aide pour ce fichier d'envoi de mail, ca fait un moment que je cherche et j'ai toujours pleins d'erreurs,


Ce que j'aimerais avoir donc en faite en Feuil1, il faut double cliquer sur un N° de la colonne C, un formulaire s'affiche il faut cliquer sur l'enveloppe pour que Outlook s'ouvre avec en pièce jointe le Pdf (SNAPSHOT de l'userform3).

Bien entendu ca ne marche pas

pouvez vous m'aider svp *

Si xhudi69 passe par ici : Help Me

j'ai cette Erreur : Argument ou appel de procédure incorrect




Merci

 

[camarchepas]

Re : Mail PDF Outlook

Bonjour ,

Regardes par ici :

   'Envoi Mail
   Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    With OutMail
     .To = "11mlksing@live.fr" ' le destinataire
     .Subject = "Bilan"          ' l'objet du mail
     .Attachments.Add ActiveWorkbook.Path & "\" & "Rapport.pdf"

 

[yoyo77]

Re : Mail PDF Outlook

camarchepas , le Forum ,

J'ai déjà essayé ce code et ca ne marche, j'ai retenté mais toujours cette erreur : Argument ou appel de procédure incorrect

Ci-joints une copie d'ecran de l'erreur et le fichier

Merci pour votre aide

 

[yoyo77]

Re : Mail PDF Outlook

Peut être sans rapport avec l'erreur affichée mais

Faut-il rajouter obligatoirement une référence pour que sa ouvre Outlook ??? Exemple : Microsoft Outlook 12.0 Object Library

 

[bob4444]

Re : Mail PDF Outlook

Bonjour
Quelle ligne entraine une erreur ?
Cdt

 

[yoyo77]

Re : Mail PDF Outlook

Bonjour bob4444,

Arrivé à :

errorHandler:
MsgBox Err.Description

Un fenetre apparait avec l'erreur : Argument ou appel de procédure incorrect



Merci

 

[bob4444]

Re : Mail PDF Outlook

Tu as mis "on error goto errorHandler" dc si il arrive la c'est que l'erreur est avant... met la ligne "on error goto errorHandler" en commentaire et dit moi ou ca plante stp

 

[bob4444]

Re : Mail PDF Outlook

Je pense que tu devrais enlever la ligne "oBjMail.Display" et mettre l'option "OpenAfterPublish" a false aussi

 

[yoyo77]

Re : Mail PDF Outlook

J'ai fait comme tu m'as dit et ca plante ici : (en jaune)

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=pdfName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

 

[bob4444]

Re : Mail PDF Outlook

alors la... C'est marrant (ou pas) mais pour moi cette ligne passe sans problemes... Quelle est l'erreur affichée ? Et quelles sont les references qui sont cochées ?

 

[yoyo77]

Re : Mail PDF Outlook

J'ai fait les modifs que tu m'as dit et ca plante toujours à :

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=pdfName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Merci de ton aide

 

[bob4444]

Re : Mail PDF Outlook

Quelle est l'erreur affichée et quelles sont les references que tu as ?

 

[yoyo77]

Re : Mail PDF Outlook

L'erreur affichée est celle citée plus haut :

Erreur d'execution "5"
argument ou appel de procédure incorrect

En jaune dans la macro

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=pdfName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Références :

Visual basic for application
Microsoft excel 12.0 object Library
OLE automation
Microsoft office 12.0 object Library
Microsoft forms 2.0 object Library

 

[bob4444]

Re : Mail PDF Outlook

Et bien... Je t'avoue que je ne comprend pas la... j'ai exactement les memes references mais cette ligne passe sans probleme, tout marche tres bien chez moi...
Je crois que je vais devoir laisser la main à quelqu'un de plus qualifié que moi... Désolé et bon courage

 

[yoyo77]

Re : Mail PDF Outlook

Ok merci pour ton aide en tout cas a bientôt