Discussion :

[nico5065]

Bonjour à tous,

Je suis tout nouveau sur le forum et débutant en ce qui concerne la création de macro !!!
J'ai donc besoin d'un petit coup de main pour "optimiser" la macro que j'ai crée afin d'envoyer un fichier excel par mail :

Voici ce que j'ai déjà renseigné :

Code :

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

1
2
3
4
5
6
7
Sub Envoyer()
 
  ActiveWorkbook.SendMail Recipients:="test@test.com", _
                          Subject:=Range("a2") & "-" & Range("b4") & "-" & Range("c4"), _
                          ReturnReceipt:=False
 
End Sub

1 - mon premier point bloquant : je souhaite que ce macro ouvre ma fenêtre outlook et donc ne pas envoyer directement le mail. Je suppose que cela doit pouvoir être modifié avec le "sendmail" ?

2 - Est il possible d'ajouter un message type, par exemple, "veuillez trouver ci-joint la demande ...." ???

Merci d'avance pour vos réponses.

Nico

[Daniel.C]

Bonjour,

Le fichier doit être enregistré :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MailSimple()
    Set olApp = CreateObject("Outlook.application")
    Set m = olApp.CreateItem(olMailItem)
    With m
        .Subject = "Sujet"
        .Body = "Corps du message"
        .Recipients.Add "test@test.com"
        .Attachments.Add "c:\temp\fichier.xls"
        .Display
    End With
End Sub

[nico5065]

Merci beaucoup pour ton aide !!!