Joindre fichier à un CV

Fermé
coklin Messages postés 75 Date d'inscription mardi 23 décembre 2008 Statut Membre Dernière intervention 30 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

End Sub

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


Merci d'avance!

Coklin