envoyer un fichier attaché avec outlookRésolu

Question

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

cs_MPi · Accepted Answer

.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

TraderAS · Answer

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

znort25x12 · Answer

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"

Envoyer un fichier attaché avec outlook

3 réponses

Votre réponse

Discussions similaires