coklin
Messages postés75Date d'inscriptionmardi 23 décembre 2008StatutMembreDernière intervention30 août 2009
-
26 juin 2009 à 22:23
Bonjour,
Je suis en train de développer un petit programme permettant de choisir un fichier à envoyer en pièce jointe dans un mail à un destinataire. Mon pb c'est que le mail s'envoie mais le fichier ne se met pas en pièce jointe, pouvez-vous m'aider svp? Voici mon code:
Sub Mail()
'Penser à ajouter Microsoft Outlook dans les références
Sous excel VBA Set objOutlook = New Outlook.Application 'Lance l’application Outlook
Set appli_Outlook = Outlook.Application
Set CreaMail = objOutlook.CreateItem(olMailItem) 'Création de l'objet "mail"
NomFichier = Application.GetOpenFilename
'Construction du mail en lui-même
With CreaMail
'Demande confirmation de lecture
.ReadReceiptRequested = True
'Choix des destinataires
.To = "i.g@yahoo.com"
'Choix des destinataires en copie
.CC = "i.g@gmail.com"
'Choix de l'objet du mail
.Subject = "Pièce jointe"
'Texte du corps du mail qui n'est pas au format HTML
.Body = Test
'Texte du corps du mail au format HTML
.HTMLBody = CorpsMail
'Choix entre le format classique et le format HTML
.BodyFormat = olFormatHTML
Call appli_Outlook.Test3
'Fin de la construction du mail
.Display
.Send
End With
End Sub
Sous Outlook VBA Private Sub Application_Startup()
End Sub
Sub Test3()
If NomFichier <> "" Then
Set pièce_jointe = e_mail.Attachments
pièce_jointe.Add NomFichier, olByValue, 1, NomFichier
End If