Envoi d'un mail par macro

Bonjour le forum,

J'aimerai pouvoir envoyer par mail, le fichier sur lequel il y aurai la macro : "Date de prévision.xlsm".

J'aimerai que la macro puisse renseigner le destinataire, le CC, l'objet et le corps du texte de cette façon :

Sub MAIL()
'
' MAIL Macro
'

'
    Application.Dialogs(xlDialogSendMail).Show
    .TO = ""
    .CC = ""
    .Subject = "Date de prévision du" & Range("aa1")
    .body = Range("AB1")

End Sub

merci d'avance pour votre aide.

Bonjour,

Quelle messagerie utilises-tu ?

Cdlt.

Bonjour jean Eric,

J'utilise Outlook sur office 365

merci

Bonjour,

As-tu jeté un oeil aux Six discussions au bas de cette page ...?

Re,

Tout d'abord, modifie ton profil en indiquant 365 et non pas 2016.

Regarde ce lien et plus particulièrement la procédure ci-dessous :

http://www.rondebruin.nl/win/s1/outlook/amail1.htm

Sub Mail_workbook_Outlook_1()
'Working in Excel 2000-2016
'This example send the last saved version of the Activeworkbook
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .to = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hi there"
        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Bonjour,

James007, oui j'ai ensuite regardé mais je n'ai pas réussi à me les approprier

Jean-Eric, Oui je fais ça de suite! Du coup la macro fonctionne, mais par contre le fichier ne se met pas en PJ

Merci

As-tu bien conservé l'instruction de la pièce jointe :

.Attachments.Add ActiveWorkbook.FullName

Il ne faut pas hésiter l'adaptation de la macro que tu as réalisée ...

Oui je l'ai effectivement bien gardé,

Sub SEND_PATRICK()
'Working in Excel 2000-2016
'This example send the last saved version of the Activeworkbook
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .to = "patrick@ sfr.fr"
        .CC = ""
        .BCC = ""
        .Subject = "Date de prévision, mise à jour du " & Range("J2")
        .Body = "Bonjour Patrick" & vbCrLf & vbCrLf & "Ci-joint, la mise à jour du fichier de saisie des dates de prévision." & vbCrLf & vbCrLf & "Cordialement,"

        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Bonjour,

Cela fonctionne parfaitement chez moi.

Cdlt.