Bonjour j'ai un probléme avec le code
il génére un 2 em fichier excel lors de l'envoi par email dans mon dossier
peut on le supprimer apres l'envoi de l'émail ligne en rouge
Merci bonne journée
Sub CDO_Mail_Small_Text_2()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Dim Fichier As String
Dim SourceWb As Workbook
S
et SourceWb = ActiveWorkbook
Fichier = ThisWorkbook.Path & Application.PathSeparator & "j1.xls"
SourceWb.SaveCopyAs Fichier
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("") = True
.Item("") = 1
.Item("") = " boite email "
.Item("") = " "
.Item("") = "smtp.gmail.com"
.Item("") = 2
.Item("") = 465
.Update
End With
strbody = "Bonjour, . Merci!"
With iMsg
Set .Configuration = iConf
.to = " "
.CC = " "
.BCC = ""
' Note: The reply address is not working if you use this Gmail example
' It will use your Gmail address automatic. But you can add this line
' to change the reply address .ReplyTo = "
Reply@something.nl"
.From = """Mr bidule "" < >"
.Subject = "planning"
.TextBody = strbody
.AddAttachment Fichier
.Send
End With
End Sub