Salut,
Dans ma macro Excel, j'ai le code suivant qui me permet d'envoyer mon fichier une fois enregistré par mail.
ça fonctionne sauf que Outlook me demande de valider que j'envoi bien un mail sans risque
Est il possible de répondre dans la macro ?
''Déclaration des objets de la messagerie
Set mailobj = CreateObject("Outlook.Application")
Set Mail = mailobj.CreateItem(olMailItem)
With Mail
.SentOnBehalfOfName = SentOnName
.To = "13solo@orange.fr"
.Subject = "Fichier"
.Body = "Bonjour, " & vbCrLf & vbCrLf & "Veuillez trouver ci-joint le fichier"
.Attachments.Add REP_SORTI & NOM_FICHIER & Format(Now, "DD.MM.YYYY HH.MM") & ".xls"
.display
.Send
End With
Dans ma macro Excel, j'ai le code suivant qui me permet d'envoyer mon fichier une fois enregistré par mail.
ça fonctionne sauf que Outlook me demande de valider que j'envoi bien un mail sans risque
Est il possible de répondre dans la macro ?
''Déclaration des objets de la messagerie
Set mailobj = CreateObject("Outlook.Application")
Set Mail = mailobj.CreateItem(olMailItem)
With Mail
.SentOnBehalfOfName = SentOnName
.To = "13solo@orange.fr"
.Subject = "Fichier"
.Body = "Bonjour, " & vbCrLf & vbCrLf & "Veuillez trouver ci-joint le fichier"
.Attachments.Add REP_SORTI & NOM_FICHIER & Format(Now, "DD.MM.YYYY HH.MM") & ".xls"
.display
.Send
End With