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:

Envoie mail automatiquement Excel
Liste déroulante excel - Guide
Yahoo mail - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

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 165
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.

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 ?

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

Discussions similaires

Me connecter sur ma boite outlook .fr

Discussions similaires

Newsletters