Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
If .Cells(i, 7).Text = "Julien " Then
.To = "julien@yahoo.fr"
.CC = ""
.BCC = ""
.Subject = objet
.Body = Strbody
.Send 'or use .Display
ElseIf .Cells(i, 7).Text = "Bruno " Then
.To = "bruno@laposte.net"
.CC = ""
.BCC = ""
.Subject = objet
.Body = Strbody
.Send 'or use .Display
ElseIf .Cells(i, 7).Text = "Philippe " Then
.To = "philippe@gmail.com"
.CC = ""
.BCC = ""
.Subject = objet
.Body = Strbody
.Send 'or use .Display
Else
.To = "petitju@laposte.net"
.CC = ""
.BCC = ""
.Subject = objet
.Body = Strbody
.Send 'or use .Display
End If
End With
On Error GoTo 0
.Close SaveChanges:=False
End With
Kill TempFilePath & TempFileName & FileExtStr
Set OutMail = Nothing
Set OutApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
On Error GoTo 0