Envoi mail

Bonjour,

comment faire pour envoyer un mail via une macro toute simple?

Je voudrai quand je clique sur un bouton de commande, que cela envoyer mon activesheet en mail.

merci de votre aide par avance...

-- il y a moins d’une minute --

voila ce que j'ai trouvé, si cela peut aider quelqu'un:

Sub Outlook()
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem, ToContact As Recipient
Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
'ici MAPI dépend de votre compte
Set olMailItem = OLF.Items.Add
With olMailItem
.Subject = ""
'ici le sujet
Set ToContact = .Recipients.Add("xxx.xxx@xxx.fr")
Set ToContact = .Recipients.Add("xxx.xxx@xxx.fr")
Set ToContact = .Recipients.Add("xxx.xxx@xxx.fr")
'les adresses mail 
.Body = "" _
  & vbCr & "Bonne journée"
'le contenu du mail
.Attachments.Add ""
'le chemin d'accès complet avec l'extension
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing
End Sub

Faites attention, votre compte mail doit être " MAPI"

bonne soirée

Edit: il faut cocher la case outlook library dans références du menu outils