Discussion :

[oliviermarchand]

Bonjour,
J'ai le code suivant intégré dans une macro, et je ne souhaite pas joindre de fichier-joint. Comment faire? Merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim ol As New Outlook.Application
    Dim olmail As MailItem
    Set ol = New Outlook.Application
    Set olmail = ol.CreateItem(olMailItem)
    With olmail
      .To = "toto@toto.fr"
      .Subject = "Test"
      .Body = "Hello"
      .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
      '.Display
    End With

[rvtoulon]

Bonjour,
supprime simplement la ligne .attachments. Et n'oublie pas de rajouter .send pour envoyer le mail.

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim ol As New Outlook.Application
    Dim olmail As MailItem
    Set ol = New Outlook.Application
    Set olmail = ol.CreateItem(olMailItem)
    With olmail 
      .To = "toto@toto.fr"
      .Subject = "Test"
      .Body = "Hello"
      .Send
    End With