Envoie de mail automatique en VBA

Question

Bonjour a tous,

bon voila, apres plusieurs jours de recherches, j'ai enfin r&#233;ussi a passer outre la P*/&#233;#@ de protection de Outlook concernant l'envoie auto des mail. seulement, voila, j'utilise outlook dans le cadre de mon taff et j'ai d&#233;velopper une Usine a Gaz (Bah oui,, faut voir comment c'est coder, &#231;a fait peur ! ! ! toutefois, je suis pas codeur, je suis administrateur r&#233;seau alors comme on dit : Chacun son taff!!) Bref, j'ai coder mon appli, elle marche (PArfois, j'me demande comment lol) mais mn soucis, le voila.

Quand j'envoie un mail automatiquement via une macro VBA, tout s'envoie sans soucis par contre, le mail ne poss&#232;de pas ma superbe signature qui s'int&#232;gre, normalement, dans chaque mail que j'&#233;cris.

Un sage parmis vous pourrez t il m'aider ?

Merci a tous

kulls

ps : le code dont je me sert vien d'ici. je vous le joint 

Sub Envoie_Mail()


'D&#233;claration des variables.
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long
  
'Enregistrez un message pour envoyer
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
  
'Recherche et activation de la CLICKYES
wnd = FindWindow("EXCLICKYES_WND", 0&)
  
'Mise en service de CLICKYES
Res = SendMessage(wnd, uClickYes, 1, 0)
  
'D&#233;claration des objets de la messagerie
Set mailobj = CreateObject("Outlook.Application")
Set Mail = mailobj.CreateItem(olMailItem)
    
'On pr&#233;pare l'envoi de Mail
        With Mail
            .SentOnBehalfOfName = SentOnName
            'Mettre ici le ou les destinataires ("[mailto:nom.prenom@FAI.com nom.prenom@FAI.com]; [mailto:nom1.prenom1@FAI.com nom1.prenom1@FAI.com])
            .To = Mail_manager(x)
'Sujet du message
.Subject = "Mail automatique - Statistiques de consommation GSM"
'Corps de texte du message(contenu)
.Body = "Veuillez trouver ci-joint, le r&#233;capitulatif de vos consmmations GSM"


.Attachments.Add ("Z:" & manager(x) & ".xls")
            .display
            .Send
            End With
  
' Mise au repos de CLICKYES
Res = SendMessage(wnd, uClickYes, 0, 0)
  
End Sub

jejelb · Answer

Bonjour,


aurais-tu trouv&#233; une solution &#224; ton souci?


Je voudrais faire la m&#234;me chose...mais je ne vois pas comment.


 


Merci d'avance

Envoie de mail automatique en VBA

1 réponse

Discussions similaires