ENVOI E-MAIL / COURRIEL OUTLOOK AVEC ACCUSÉ RÉCEPTION / READ RECEIPT

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 608 fois - Téléchargée 7 fois

Contenu du snippet

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

Compatibilité : VBA

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.