ENVOI E-MAIL / COURRIEL OUTLOOK AVEC ACCUSÉ RÉCEPTION / READ RECEIPT
Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 039 fois - Téléchargée 9 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
- ENVOI E-MAIL / COURRIEL OUTLOOK AVEC ACCUSÉ RÉCEPTION / READ RECEIPT
- Windev envoi mail ✓ - Forum Autres langages
- Envoyer un mail en php - Forum PHP
- Flash mail ✓ - Forum Flash
- Gestion signature outlook ✓ - Forum VB.NET
- Mail c ✓ - Forum C / C++ / C++.NET
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.