Sub Envoyer_mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Dim Z As String
Z = ActiveWorkbook.Name
Z = "C:\ " & Z
ActiveWorkbook.SaveCopyAs Z
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
'Suivant le PC et le FAI les lignes peuvent être utilisées, bien mettre le bon FAI
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr" ' mettre le bon FAI
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "destinataire@fai.fr" 'A
.From = "expéditeur@fai.fr" 'De
.CC = "destinataire2@fai.fr" 'CC
.BCC = "destinataire_n_apparaissant_dans_la_liste@fai.fr"
.Subject = "Objet"
.TextBody = "Corps de texte"
.AddAttachment Z
.Send 'Envoi le message
End With
Kill Z 'si besoin suppression du fichier temporaire
End Sub