Bonjour;
j'ai une macro Excel dont laquelle j'ai réalisé une fonction pour envoyer un mail ; sa fonctionne tres bien sur mon PC mais pas le cas sur le serveur: voici la fonction du macro:
''''''''''''''''''
j'ai une macro Excel dont laquelle j'ai réalisé une fonction pour envoyer un mail ; sa fonctionne tres bien sur mon PC mais pas le cas sur le serveur: voici la fonction du macro:
''''''''''''''''''
Code:
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strbody = "Bonjour" & vbNewLine & _
"" & vbNewLine & _
" le document vous souhaiter l'exporter a été envoyer le " & Now & " par " & Environ("UserName") & vbNewLine & vbNewLine & _
"Ce mail est généré automatiquement" & vbNewLine & _
"" & vbNewLine & _
"" & vbNewLine & _
"Veuillez ne pas repondre" & vbNewLine & _
""
' On Error Resume Next
With OutMail
.To = mail
.Cc = ""
.Bcc = ""
.Subject = nom
.Body = strbody
.Attachments.Add (sPath & sName & "\" & nom & ".doc")
'ou .display pour un envoie accepter'
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
Dernière édition: