Problème d'envoi d'un mail avec PJ [Résolu]

A voir également:Problème d'envoi d'un mail avec pjEnvoie multiple de mails via excel avec feuille en PJ ✓ - Forum - Excel Formulaire d'envoi mail avec PJ ✓ - Forum - PHP Envoi mail avec pj ✓ - Forum - Messagerie Envoie mail avec PJ ✓ - Forum - Shell Envoyer video par mail - Conseils pratiques - Téléchargement

Bonjour,

J'essaye depuis hier à envoyer un mail avec une PJ en utilisant "Attachement.Add" mais je n'y arrive pas du tout.
Quelqu'un pourrais me dire que est le problème à mon codage?


Sub Mail() If MsgBox("Voulez-vous envoyer un mail au fournisseur de la facture sélectionné?", vbYesNo, "Confirmation") = vbYes Then     Dim MonMail As Variant     Dim Fichier As Variant         Fichier = Application.GetOpenFilename(, , "Sélection du fichier", , "")             MsgBox Fichier             If Fichier = "" Then             MsgBox ("Aucune sélection, tâche annulée")             Exit Sub             End If                 ActiveCell.Copy Destination:=Sheets("DATA BASE").Range("AA2")                 Set MonMail = CreateObject("outlook.application")                     With MonMail.Createitem(olmailitem)                                 .Subject = "Mail de confirmation"                                 .To = Application.WorksheetFunction.VLookup(Sheets("DATA BASE").Range("AB2"), Sheets("DATA BASE").Range("AG2:AK30"), 3, False)                                 .CC = Application.WorksheetFunction.VLookup(Sheets("DATA BASE").Range("AB2"), Sheets("DATA BASE").Range("AG2:AK30"), 4, False)                                 .Body = Application.WorksheetFunction.VLookup(Sheets("DATA BASE").Range("AB2"), Sheets("DATA BASE").Range("AG2:AK30"), 5, False)                                 .Attachement.Add Fichier                                 .Display                     End With             End If      End Sub



Configuration: Windows / Chrome 77.0.3865.90

Forum

A voir également:Problème d'envoi d'un mail avec pjEnvoie multiple de mails via excel avec feuille en PJ ✓ - Forum - Excel Formulaire d'envoi mail avec PJ ✓ - Forum - PHP Envoi mail avec pj ✓ - Forum - Messagerie Envoie mail avec PJ ✓ - Forum - Shell Envoyer video par mail - Conseils pratiques - Téléchargement

Web: www.shapebootstrap.net

1 réponse

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour,

Attachements avec un S

 .Attachments.Add Fichier 

Reply
réponses:
  • auteur

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed