Sujet Précédent Sujet Suivant

Envoie mail automatiquement Excel

Résolu/Fermé
NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 - 26 août 2020 à 20:27
NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 - 28 août 2020 à 17:57
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,
A voir également:

3 réponses

Réponse 1 / 3
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 167
27 août 2020 à 09:21
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.
1
Réponse 2 / 3
NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 34
26 août 2020 à 20:38
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 ?
0
Réponse 3 / 3
NoahZ Messages postés 113 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 8 septembre 2020 34
28 août 2020 à 17:57
Cela fonctionne comme je le veux, merci beaucoup
0