mail automatique à partir d'excel Résolu

Question

Bonjour,

Je voudrai savoir s'il est possible de créer un lien entre excel et outlook afin d'envoyer automatiquement des mails selon condition spécifiées sur excel.

Merci d'avance

Laure

zebulon2503 · Answer

Salut

Un UserForm dans Excel avec des textbox pour l'adresse, le message, chemin fichier joit (facultatif), un bouton Envoyer qui appelle la procédure suivante (que bien sûr tu arranges) :

Sub envoyer(Message As String, Nom_Du_Fichier As String, Adresse As String)
    Dim o As Outlook.Application
    Set o = New Outlook.Application
    Dim Mail As Outlook.MailItem
    Set Mail = o.CreateItem(olMailItem)
    With Mail
        .Subject = "Subjet"
        .To = Adresse
        .HTMLBody = Message
        .Attachments.Add Nom_Du_Fichier
        '.Send
        .Display
    End With
      o.ActiveWindow

    Set Mail = Nothing
    Set o = Nothing
End Sub

zebulon2503 · Answer

Re
Pour sauter des lignes, dans le textbox correspondant au message, tu ouvres la fenêtre propriété.

Dedans tu as 2 paramètres à changer :

EnterKeyBehavior tu mets "True"
MultiLine que tu mets aussi à "True".

Maintenant, en tapant Enter, ca te passera une ligne.
Ca marche ?

Mike-31 · Answer

Re,

Pour accéder au fichier de création de signature Bouton Windows/Tous les programmes/Microsoft Office/Outils Microsoft Office/Certificat numérique pour projet VBA

Si tu n'y as pas accès avec l'assistant Rechercher saisis le nom du fichier

Selfcert.exe

Double clic saisis le nom de la signature et tu reprends la procédure décrite dans l'astuce.

Il y va de l'intérêt de tous de protéger les codes par une signature et élever le niveau de sécurité. Si tu expliques à l'administrateur du système et tu lui fais lire l'astuce il créera lui même la signature et l'imposera à tous les utilisateurs  sous sa responsabilité

Mail automatique à partir d'excel

3 réponses

Discussions similaires

Newsletters