Bonjour,

Tout d'abord, excusez moi pour mon premier post dont le titre était faux. Surement la fatigue de fin de semaine:


Je suis en train de développer un petit programme permettant de choisir un fichier à envoyer en pièce jointe dans un mail adressé à 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

End Sub

Avez-vous une idée de pourquoi ça ne marche pas?


Merci d'avance!

Coklin

Configuration: Windows XP
Firefox 3.0.11