Menu

Macro Outlook - Mail automatique

Messages postés
14
Date d'inscription
vendredi 23 février 2018
Statut
Membre
Dernière intervention
17 avril 2019
- - Dernière réponse : f894009
Messages postés
14213
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 avril 2019
- 17 avril 2019 à 17:29
Bonjour,

J'ai monté la macro (voir en dessous de mon message) pour la création de mail automatique.

Un souci : lorsque Outlook est fermé, aucun problème.
Par contre quand Outlook est ouvert, la macro referme Outlook, me créé mon message, puis referme tout.
J'avais que j'ai la tête dans le guidon et que je n'arrive pas à prendre de recul, je ne suis pas contre un avis extérieur.

Merci par avance :)



Sub Exercice_Plasfort_Niv2_Début()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim Appli As Object
Dim SessionOutlook, myolapp
Const Chemin As String = "C:\Program Files (x86)\Microsoft Office\root\Office16\OUTLOOK.exe"

'Fermeture de Outlook
Set myolapp = CreateObject("Outlook.Application")
myolapp.Quit

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

'Ouverture de Outlook
myolapp = Shell(Chemin, 1)

'Corps du message
strbody = "Bonjour," & vbCrLf & " " & vbCrLf & _


'Destinataires et objet du mail
With OutMail
.To = "machin@gmail.com"
.CC = "machin@gmail.com"
.BCC = "machin@gmail.com"
.Subject = "EXERCICE"
.Body = strbody
.Display
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub
Afficher la suite 

Votre réponse

2 réponses

Messages postés
14213
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 avril 2019
1327
0
Merci
Bonjour,
fermeture d'OUTLOOK: c'est ecrit dans le code
Quel est votre probleme ???
ALGAMY
Messages postés
14
Date d'inscription
vendredi 23 février 2018
Statut
Membre
Dernière intervention
17 avril 2019
-
Bonjour,

Voici mon problème
"Un souci : lorsque Outlook est fermé, aucun problème.
Par contre quand Outlook est ouvert, la macro referme Outlook, me créé mon message, puis referme tout. "

Donc quand Outlook est ouvert, il se referme, se rouvre, créé le message puis se referme. Donc obligation de relancer la macro pour que ce soit fonctionnel.
Commenter la réponse de f894009
Messages postés
14213
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 avril 2019
1327
0
Merci
Bonjour,

Cette macro est dans le VBA de quel logiciel????
f894009
Messages postés
14213
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 avril 2019
1327 -
Re,
un mail qui sera à modifier avant envoi
Pourquoi!

Chez moi, avec .Display, Outlook se ferme apres l'envoi du message !!!
ALGAMY
Messages postés
14
Date d'inscription
vendredi 23 février 2018
Statut
Membre
Dernière intervention
17 avril 2019
-
Le mail sera à modifier avant envoi parce que c'est mon besoin actuel. Il ne s'agit pas d'un mail générique, d'où la "difficulté" supplémentaire.
f894009
Messages postés
14213
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 avril 2019
1327 -
Re,
Pourquoi celui qui doit modifie le @mail et envoi ne ferme-t-il pas la fenetre Outlook!!!!
ALGAMY
Messages postés
14
Date d'inscription
vendredi 23 février 2018
Statut
Membre
Dernière intervention
17 avril 2019
-
Cette macro sera utilisée dans des moments de stress et d'urgence avec nécessité d'envoyer des mails de compte-rendu de situation. Ils seront envoyés par des gens peu à l'aise avec l'informatique. D'où ma démarche de leur simplifier la vie au maximum via cette macro. Ils n'auront plus qu'à taper leur message.
Donc effectivement j'y ai pensé, mais dans des moments de précipitation, ce ne sera pas un réflexe que de fermer Outlook.
D'où ma demande à l'aide.
f894009
Messages postés
14213
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 avril 2019
1327 -
Re,
J'ai trouve, Outlook sera ferme a la prochaine execution de la procedure.
Mais, comme je l'ai ecrit precedement, Outlook se ferme tout seul apres l'envoi et cet envoi ne peut se faire qu'avec le clic sur l'enveloppe Envoyer!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Donc comment se fait-il que OUTLOOK reste ouvert?????????????????????????????????????????

Sub Exercice_Plasfort_Niv2_D?but()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim Appli As Object
    Dim SessionOutlook, myolapp

    'Fermeture de Outlook
    Call KillProcess("OUTLOOK.exe")
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    'Corps du message
    strbody = "Bonjour," & vbCrLf & " " & vbCrLf
    'Destinataires et objet du mail
    With OutMail
        .To = "machin@gmail.com"
        .CC = "machin@gmail.com"
        .BCC = "machin@gmail.com"
        .Subject = "EXERCICE"
        .Body = strbody
        .Display        'ouvre Outlook
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

'https://www.commentcamarche.net/forum/affich-6728882-comment-fermer-outlook-de-puis-word-en-vba
Public Sub KillProcess(ByVal ProcessName As String)
    Dim ovc As Object
    Dim sQuery As String
    Dim oproc
    
    Set ovc = GetObject("winmgmts:root\cimv2")
    sQuery = "select * from win32_process where name='" & ProcessName & "'"
    For Each oproc In ovc.execquery(sQuery)
        oproc.Terminate
    Next
    Set ovc = Nothing
End Sub
Commenter la réponse de f894009