Pb utilisation macro par tiers (envoi outlook entre autres)

Sub SendOneSheet()
'SOURCE:Sending Email

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

Cliquez pour agrandir...