Public Sub SendReport()
On Error Goto Hell
Dim NameSpace As Object
Dim EmailSend As MailItem
Dim EmailApp As Object
Dim strMailTo As String
strMailTo = "joe@momma.com"
Set EmailApp = CreateObject("Outlook.Application") 'utilise l'objet outlook
Set NameSpace = EmailApp.GetNamespace("MAPI") 'envoi via un MAPI à adapter au besoin
Set EmailSend = EmailApp.CreateItem(0)
EmailSend.Subject = "Voici votre document"
EmailSend.Body = "Le document que vous souhaitiez..."
EmailSend.Attachments.Add("source/path-chemin")
EmailSend.ReadReceiptRequested=True 'demande d'AR - read receipt
EmailSend.Recipients.Add (strMailTo) 'destinataire ?
EmailSend.Save 'vous DEVEZ sauver les mails avec P.J.
EmailSend.Send 'envoi de l'e-mail
Heaven:
Set EmailSend=Nothing
Exit Sub
Hell:
MsgBox Err.Description, vbCritical, "Error #: " & Err.Number
Resume Heaven
End Sub