Discussion :

[Morgi]

Bonjour,
je suis morgi ,
je cherche de l'aide s'il vous plaît, en effet, j'ai essayé plusieurs solutions mais je ne suis pas sastifaite(dans mon fichier excel je dois généré deux boutons pour envoyer un mail à x destinaires
exemple un bouton : "demande étude ou "déclaration dans le CDF".
je dois aussi avoir l'objet du mail + le corps du mail(j'ai essayé votre code mais j'ai toujours un message d'erreur).

je remercie par avance toutes personnes qui m'apporteront leur aide

morgi


un bonjour de la guyane française

[Nodens_swiss]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CreationMailEtLienHypertexte()
    Dim OlApp As Outlook.Application
    Dim OlItem As Outlook.MailItem
    'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
 
    Set OlApp = New Outlook.Application
    Set OlItem = OlApp.CreateItem(olMailItem)
 
    With OlItem
        .To = "NomPrenom@mail.fr"
        .Subject = "Le titre du message"
        .Body = "Découvrez Microsoft Office sur le site Developpez" & _
            vbLf & "http://www.developpez.com" & vbLf & vbLf & _
            "Cordialement" & vbLf & "mailto:emetteur@mail.fr"
        .Display
        .Save
        .Send
    End With
 
    Set OlItem = Nothing
    Set OlApp = Nothing
End Sub

Trouvé sur:
http://excel.developpez.com/faq/?pag...nkCorpsMessage

Pour le fichier joint, tu peux faire un print en pdf:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
ThisWorkbook.Worksheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
            Dossier & "\" & NomFichier & ".pdf", Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            From:=1, To:=1, OpenAfterPublish:=False

Puis tu fais un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
OlItem .Attachments.Add Dossier & "\" & NomFichier & ".pdf"