Mise en copie d'un mail en automatique

[Bradvid]

Bonjour le forum,

J'ai une macro qui envoie un fichier par mail et je voudrais mettre une personne en copie de ce mail, quel est le code pour cela?

Voici le code actuel de ma macro :

ActiveWorkbook.SendMail "xxx@free.com", "Bon de Commande " & Range("I17").Value

Merci pour votre aide.

 

[Staple1600]

Re : Mise en copie d'un mail en automatique

Bonjour

En reprenant ton exemple

Je n'ai pas testé (je t'en laisse le soin)

Sub test()
'SOURCE:http://www.cathyastuce.com
'forum: Re: désactivation des macros avant envoi d'un fichier excel
'//////////////////////////////////////////////
'adapter les adresses mail (ca va sans dire)
ActiveWorkbook.SendMail Recipients:=Array("ptest1@france.fr", "ptest2@france.fr", "ptest3@france.fr"), _
Subject:="Mettre le sujet"
End Sub

Voici un exemple qui utilise Outlook
(il faut cocher la référence à Outlook dans VBE)

Pour ajouter des destinataires
modifier les lignes suivantes

         .Recipients.Add "You@me.com"
        .Recipients.Add "Me@You.com"
        .Recipients.Add "Him@Her.com"

Sub SendOneSheet()
'SOURCE:http://www.dicks-clicks.com/excel/olSending.htm#Sending_One_Sheet_as_an_Attachment

    Dim olApp As Outlook.Application
    Dim olMail As MailItem

    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)

    ThisWorkbook.Sheets(2).Copy

    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & _
        "Sheet2.xls"

    With olMail
        .Recipients.Add "You@me.com"
        .Recipients.Add "Me@You.com"
        .Recipients.Add "Him@Her.com"
        .Subject = "That one sheet"
        .Body = "Here you go" & vbCrLf
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With

    ActiveWorkbook.Close False

    Kill ThisWorkbook.Path & "\" & "Sheet2.xls"

    Set olMail = Nothing
    Set olApp = Nothing

End Sub

 

[Bradvid]

Re : Mise en copie d'un mail en automatique

Bonjour

En reprenant ton exemple

Je n'ai pas testé (je t'en laisse le soin)

Sub test()
'SOURCE:http://www.cathyastuce.com
'forum: Re: désactivation des macros avant envoi d'un fichier excel
'//////////////////////////////////////////////
'adapter les adresses mail (ca va sans dire)
ActiveWorkbook.SendMail Recipients:=Array("ptest1@france.fr", "ptest2@france.fr", "ptest3@france.fr"), _
Subject:="Mettre le sujet"
End Sub

Bonjour Staple 1600,

ça fonctionne Nickel, merci pour ton aide.

@+