Envoyer un fichier attaché avec outlook [Résolu]

Signaler
-
 znort25x12 -
Bonjour à tous,

je dois créer un fichier Excel puis l'envoyer par e-mail.

J'ai créé le code suivant, mais je bloque sur attachment.add car mon nom fichier n'est pas connu à l'avance.

Quelqu'un aurait-il la gentillesse de me dire comment faire, svp? Merci d'avance. Voici mon code:

Sub outlook()

Dim Chemin As String
Chemin = "C:\Users\Desktop"
Dim MonFichier
MonFichier = Chemin & "toto" & [k8].Value & "-" & [m7].Value & ".xls"
ActiveWorkbook.SaveAs filename:=MonFichier
filename = Chemin & "toto" & [k8].Value & "-" & [m7].Value & ".xls"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With Destwb
With OutMail
.To = "dede@free.fr"
.Subject = "infos du jour" & [m7]
.Body = "Regards"
.Attachments = [MonFichier]
.Send
End With
End With

End Sub

3 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
.Attachments = MonFichier
Ne mets pas de crochets autour de ta variable, sinon il va penser que c'est un Range...

Et habitue-toi à déclarer toutes tes variables

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
salut,
votre sujet m'intéresse, et je veux savoir comment on peut envoyer seulement une plage de cellule exp (A1:I64), en faire une copie de cette plage et l'envoyer automatiquement par outlook

merci
Merci beaucoup pour le coup de main.

J'ai modifié la ligne
.attachements = mon fichier
mais j'ai maintenant une erreur "runtime error 440: property is read-only"