Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 039 fois - Téléchargée 9 fois
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
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.