1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Sub Bouton1_Cliquer()
Application.Visible = False
Dim Maille As String
Dim Sujet As String
Maille = "test@gmail.com"
Sujet = "Agendage"
ActiveWorkbook.SaveAs FileName:="x:\test\TEST\test.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Set OL = CreateObject("Outlook.Application")
Set MyItem = OL.CreateItem(olMailItem)
With MyItem
.To = Maille
.Subject = Sujet
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Attachments.Add "x:\test\TEST\test.xls"
.Send
End With
MsgBox "Votre classeur a bien été envoyé", vbInformation, ""
ActiveWorkbook.Close
Kill ("x:\test\TEST\test.xls")
Application.Visible = True
Application.DisplayAlerts = True
End Sub |
Partager