Bouton enregistre et envoi maill

Question

Je viens de créer un vba tout simple. J'ai inséré un bouton qui, une fois mon document rempli, enverrait le vba créé par mail (ou une copie PDF). Je cherche un code qui me permettrait de le faire je ne trouve rien. Qui peut m'aider? Je vous remercie de votre aide...

kingfadhel · Answer

Bonjour, voila le code que j'utilise :

reste à adapter le lien du fichier PDF , l'émail....

Sub TestMail()
Dim ObjOutlook As New Outlook.Application
Dim strPath$, OutlookItem, ColAttach
Const olByValue = 1
    Set OutlookItem = ObjOutlook.CreateItem(0)
    OutlookItem.To = "xyz@gmail.com"
    OutlookItem.Subject = "This will work!"
    OutlookItem.Body = "This works great, no warning message from Outlook!"
    Set ColAttach = OutlookItem.Attachments
    strPath = ThisWorkbook.Path & "\MonFichier.pdf"
    ColAttach.Add strPath, olByValue, 1, "File Attachment"
    OutlookItem.Display
    SendKeys "%{s}", True
    MsgBox "Ok"
End Sub

Bonjour,

Voilà un deuxième exemple que j'utilise aussi:

Corps personnalisable à l'avance
Liste des Destinataires
Jointure de Fichier automatique (renseigner le chemin)
Signature

Sub Envoi_mail()

'---Envoyer_Mail_Outlook---
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Dim destinataires As String
'---Contenu du message---
    Contenu = "Veuillez trouver ci-joint la situation xxxx "
    Contenu = Contenu & "_________________________________________________" & Chr(10) & Chr(13)
    Contenu = Contenu & "Cordialement" & Chr(10) & Chr(13)
    Contenu = Contenu & "kingfadhel" & Chr(10) & Chr(13)
    Contenu = Contenu & "GSM: 00001122003" & Chr(10) & Chr(13)

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---Destinataires---
destinataires = "dest.1@gmail.com" & ";" & "dest.2@gmail.com" & ";" & "dest.3@gmail.com" & ";" & "kingfadhel@gmail.com" & ";" & "dest.4@gmail.com"

'---------------------------------------------------------
   'Exemple pour envoyer un classeur en pièce jointe
   'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
   'If Nom_Fichier = "Faux" Then Exit Sub
'---------------------------------------------------------
   'Ou bien entrer le path et nom du fichier autrement
    Nom_Fichier = ThisWorkbook.Path & "\MonFichierXXX.pdf"
    If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
     With oBjMail
        .To = destinataires
        .Subject = "Situation XXX "   ' l'objet du mail
        .Body = Contenu 'le corps du mail ..son contenu
        .Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier
        '.Display  '   Ici on peut supprimer pour l'envoyer sans vérification
        .Send
'        .ReturnReceipt = True
    End With
    ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
'---------------------------------------------------------
End Sub