Code VBA envoi mail perplexe 2 pcs
bonjour,
j'utilise le code ci dessous pour envoyez un classeur excell en pJ via macro vba
alors qu'il fonctionne parfaitement sur mon pc perso (w 10 excell 2016)
il ne fonctionne pas sur mon pc de boulot w7pro excell 2016
j'ai bien activées les references outlook library , identique sur les 2 pcs
sur mon pc de bureau (d'ailleurs testé sur 2 pcs) , aucun message d'erreur mais le mail ne s'ouvre pas
de quoi cela peux t'il venir ?
==============
Sub Mail_workbook_Outlook()
'Nécessite d'activer la référence "Microsoft Outlook Library"
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = "moi.com"
.CC = ""
.BCC = ""
.Subject = "acte "
.Body = "ci joint fichier journalier "
.Attachments.Add ActiveWorkbook.FullName
.Display
' .Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Bonjour,
Un éventuel problème avec les associations de fichiers ?