ENVOI E-MAIL / COURRIEL OUTLOOK AVEC ACCUSÉ RÉCEPTION / READ RECEIPT
Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 651 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
- Outlook return receipt
- Outlook read receipt - Meilleures réponses
- Return receipt in outlook - Meilleures réponses
- Envoyer en e-mail avec outlook express sous vb - Codes sources - Visual Basic / VB.NET (Shell)
- Envoyer un mail avec outlook express - Codes sources - Visual Basic / VB.NET (Divers)
- Envoi E-mail Plusieurs destinataires (excel+vba) ✓ - Forum - Visual Basic 6
- Problème Envoi de mail via outlook Asp.net ✓ - Forum - ASP.NET
- Envoi de mail via Outlook : Rendre le mail visible ✓ - Forum - Visual Basic 6
Commentaire
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.