Envoie mail automatiquement Excel [Résolu]

Signaler
Messages postés
111
Date d'inscription
jeudi 5 septembre 2019
Statut
Membre
Dernière intervention
8 septembre 2020
-
Messages postés
111
Date d'inscription
jeudi 5 septembre 2019
Statut
Membre
Dernière intervention
8 septembre 2020
-
Bonsoir,

est-il possible d'envoyé des mails automatiquement par rapport à une valeur sans besoin de "confirmer" sur outlook.

En gros j'ai un fichier avec des dates et dès que la dates est à échéance, il faudrait envoyer un mail automatiquement sans que personnes doivent le faire.

Merci d'avance,

3 réponses

Messages postés
1005
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
1 octobre 2020
100
Bonjour,

Rien n'empêche de faire ouvrir Outlook et d'ensuite de le fermer après l'envoi du mail.
Pour l'envoi automatique, tu peux ajouter
.Send
à ton code.
-> Cependant, et surtout si c'est un réseau entreprise, tu vas te faire "jeter" par les stratégies de ton groupe, l'antivirus,... Puisque c'est considéré comme une action automatique.
Messages postés
111
Date d'inscription
jeudi 5 septembre 2019
Statut
Membre
Dernière intervention
8 septembre 2020
15
Petit précision:

Sub Mail_test()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim i As Integer, j As Integer

For i = 2 To Sheets("Feuil1").Range("E" & Rows.Count).End(xlUp).Row
If Sheets("Feuil1").Range("E" & i).Value = "CHANGE" Then

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "<BODY style=font-size:11pt;font-family:Calibri>Bonjour,<br><br>" & _
"texte"

On Error Resume Next

With OutMail
.Display
.To = "MonMail"
.Subject = "MonSujet"
.HTMLBody = strbody & "<br>" & .HTMLBody
.Display

End With

On Error GoTo 0
End If
Next i

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Voilà mon code mais cela m'ouvre Outlook, (logique) mais y'a t'il moyen d'envoyé cela sans ouvrir Outlook ?
Messages postés
111
Date d'inscription
jeudi 5 septembre 2019
Statut
Membre
Dernière intervention
8 septembre 2020
15
Cela fonctionne comme je le veux, merci beaucoup