Re : Envoi d'un mail via Excel et alerte de sécurité Outlook
Je garantie pas que ca soit très propre comme programme, mais ca marche, hormis ce message d'erreur :
Attention, le programme n'est pas fini encore, c'est pour ca qu'il y a des gosub qui traine et qui servent pas.
Sub Mail()
'Récupère la date et l'heure de l'extract
Mydate = Format(Date, "dd-mm-yyyy") 'Récup de la date au format jj-mm-aaaa
Mytime = Format(Time, "hh-mm-ss") 'Récup de l'heure au format hh-mm-ss
Mix = Mytime & "_" & Mydate
'Programme
Programme:
trigramme = "www"
Adresse = "toto@toto.fr"
'GoSub Mail
'GoTo fin
'Envoi du mail
Mail:
trigramme = "xxxx " & trigramme
Fichier_sorti = "C:\WINDOWS\Temp\" & trigramme & " " & Mix & ".xls"
Sheets(trigramme).Copy
ActiveWorkbook.SaveAs Fichier_sorti
'----------- Appel procedure d'envoi de mail
Call envoimail(Adresse, Extract1, Fichier_sorti)
ActiveWorkbook.Close (savechanges = False)
'Return
fin:
End Sub
Private Sub envoimail(Adresse, Extract1, Fichier_sorti)
'Crée une session Microsoft Outlook
Set appOutlook = CreateObject("outlook.application")
'Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)
'Titre, texte, destinataires, etc ... et envoi.
With message
.Subject = "wwww"
.Body = "blablabla" & vbCr & vbCr
.Recipients.Add (Adresse)
.attachments.Add Fichier_sorti
.Send
End With
End Sub
Si quelqu'un a la soluce au message d'erreur, ca m'arrangerait mechamment.
Merci a tous