Envoi de mail à partir d'Excel

Bonjour

je vous explique mon projet.

J'ai un formulaire en XLS et j'ai crée un bouton en bas "EXPORTER VERS XML" qui en fait génère un fichier XML et l'envoi en pièce jointe dans outlook.

Pour l'instant j'ai réussi à créer le début de la macro, cad, quand je clique dessus, cela génère mon fichier XML dans le même dossier que mon XLS.

Par contre, j'aimerais que lorsque je clique sur le bouton "EXPORTER VERS XML" , cela m’envoie ce fichier XML crée en pièce jointe outlook.

voici le début de ma macro :

Sub ExportXML()

'

ChDir _

"G:\Admin\Formulaire\"

ActiveWorkbook.SaveAsXMLData Filename:= _

"C:\temp\Formulaire1.xml" _

, Map:=ActiveWorkbook.XmlMaps("formulaire1_Mappage")

End Sub

donc voilà j'aimerais rajouter l'envoi de ce fichier XML vers outlook en Pièce Jointe ?

je suis bloquée ^^'

merci d'avance à qui voudra m'aider

Sur un fichier j'envoie un mail automatique à la fermeture le code est le suivant :

    Sub envoi_mail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim olFormatHTML As String
    MsgBox ("Préparation du MAIL D'INFORMATION AUX UTILISATEURS DE LA MAIN COURANTE. " & Chr(10) & Chr(10) & "la fenêtre du message va s'afficher" & Chr(10) & "Merci de valider l'envoi")
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
     strbody = "Information sur la mise à jour"
    On Error Resume Next
        With OutMail
            .To = "Administrateur@organisme.fr"
            .CC = "Toto@yahoo.fr; <!-- e --><a href="mailto:titi@yahoo.fr">titi@yahoo.fr</a><!-- e -->"
            .BCC = ""
            .Subject = "Mise à jour de la main courante"
            .BodyFormat = olFormatHTML
          .HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " a mis à jour la main courante.<BR><BR>" _
            & "<A href=" & """" & "\\Nom_serveur\Repertoire\nom_ficihier.xls" & """" & ">Accéder à la main courante.</A>" & Chr(10) & "<BR><BR>Cordialement"
            .Display
        End With
            On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
    End Sub

par contre je n'ai pas de pièce jointe mais cela doit être trouvable.

Cordialement

Bonjour Lili,

je n'ai pas de solution toute faite, mais pas mal de pistes à te proposer :

https://forum.excel-pratique.com/post175388.html?hilit=mail%20outlook#p175388

https://forum.excel-pratique.com/post174110.html?hilit=mail%20outlook#p174110

Voilà, bon courage!

merci !

en haut à droite du post qui t'as apporté la réponse à ta demande!