Bonjour,
Ci-dessous une macro qui me permet d'enregistrer mon classeur excel et de l'envoyer par mail (Merci d'ailleur au autres post qui m'ont permis de le réaliser)
Private Sub CommandButton4_Click()
Dim MailObj As Object
Set MailObj = CreateObject("outlook.Application")
ActiveWorkbook.SaveAs Filename:="C:\temp\Demande_Supervision.xls"
Set ObjNewMail = MailObj.CreateItem(olMailItem)
With ObjNewMail
.Recipients.Add "saisirMail"
.Recipients.ResolveAll
.Importance = olImportanceHigh
.Subject = "Demande de supervision"
.Attachments.Add ("C:\temp\Demande_Supervision.xls")
.Body = "Bonjour, ci joint une copie de demande de supervision par les applications OpManager et AppManager"
End With
ObjNewMail.Display
End Sub
Comment fait pour qu'après la création du mail, le fichier dans c:\temp soit supprimé ?
Merci d'avance
Ci-dessous une macro qui me permet d'enregistrer mon classeur excel et de l'envoyer par mail (Merci d'ailleur au autres post qui m'ont permis de le réaliser)
Private Sub CommandButton4_Click()
Dim MailObj As Object
Set MailObj = CreateObject("outlook.Application")
ActiveWorkbook.SaveAs Filename:="C:\temp\Demande_Supervision.xls"
Set ObjNewMail = MailObj.CreateItem(olMailItem)
With ObjNewMail
.Recipients.Add "saisirMail"
.Recipients.ResolveAll
.Importance = olImportanceHigh
.Subject = "Demande de supervision"
.Attachments.Add ("C:\temp\Demande_Supervision.xls")
.Body = "Bonjour, ci joint une copie de demande de supervision par les applications OpManager et AppManager"
End With
ObjNewMail.Display
End Sub
Comment fait pour qu'après la création du mail, le fichier dans c:\temp soit supprimé ?
Merci d'avance