Macro Outlook - Mail automatique

Fermé

Outlook

ALGAMY Messages postés 16 Date d'inscription vendredi 23 février 2018 Statut Membre Dernière intervention 3 mai 2019 - 15 avril 2019 à 16:23
ALGAMY Messages postés 16 Date d'inscription vendredi 23 février 2018 Statut Membre Dernière intervention 3 mai 2019 - 3 mai 2019 à 10:52

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

A voir également:

Macro outlook envoi mail automatique
Ouvrir ma boîte mail ✓ - Forum Messagerie
Réponse automatique outlook - Guide
Creer adresse mail - Guide
Comment ouvrir ma boîte mail ? ✓ - Forum Gmail
Réponse automatique outlook application - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 16748 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2022 1 659
15 avril 2019 à 17:40

Bonjour,
fermeture d'OUTLOOK: c'est ecrit dans le code
Quel est votre probleme ???

ALGAMY Messages postés 16 Date d'inscription vendredi 23 février 2018 Statut Membre Dernière intervention 3 mai 2019
16 avril 2019 à 07:39

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.

Réponse 2 / 2

f894009 Messages postés 16748 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2022 1 659
16 avril 2019 à 11:48

Bonjour,

Cette macro est dans le VBA de quel logiciel????

ALGAMY Messages postés 16 Date d'inscription vendredi 23 février 2018 Statut Membre Dernière intervention 3 mai 2019
16 avril 2019 à 13:30

C'est EXCEL de Office 365

f894009 Messages postés 16748 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2022 1 659
Modifié le 16 avril 2019 à 14:03

Re,

Donc obligation de relancer la macro pour que ce soit fonctionnel.
Oui, car ca ne marche pas tout seul sans une programmation adequate
Vous voulez quoi en fin de compte??

ALGAMY Messages postés 16 Date d'inscription vendredi 23 février 2018 Statut Membre Dernière intervention 3 mai 2019
16 avril 2019 à 15:16

J'explique...

Quand Outlook fermé = macro parfaitement fonctionnelle selon les étapes suivantes :
- ouverture de Outlook
- création du mail
Quand Outlook ouvert = macro non fonctionnelle, qui se passe selon les étapes suivantes :
- fermeture de Outlook
- réouverture de Outlook
- création du mail
- fermeture de Outlook et du mail

Est-ce plus clair ?

f894009 Messages postés 16748 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2022 1 659
16 avril 2019 à 17:03

Re,
Vous ne donnez pas par quel hazard la macro demarre !!!!!!

Quand Outlook ouvert = macro non fonctionnelle!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

ALGAMY Messages postés 16 Date d'inscription vendredi 23 février 2018 Statut Membre Dernière intervention 3 mai 2019
16 avril 2019 à 17:07

D'où ma demande à l'aide...

Outlook subit des bugs informatiques aléatoires, testés en direct dans le cadre de mon activité qui nécessite la fermeture et la réouverture de Outlook.

Mon but est donc :
1. Si Outlook ouvert : que Outlook soit fermé
2. Du coup, Outlook fermé (de base ou par le biais de la macro) : ouverture de Outlook
3. Création de mon mail

Et là est-ce plus clair pour vous ?

f894009 Messages postés 16748 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2022 1 659
17 avril 2019 à 17:29

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

Discussions similaires

Macro Excel outlook - Envoie de mails automatiquement

Envoi de mail automatique via OUTLOOK

Envoi mail automatique sur Outlook depuis excel

Envoie Mail automatique Outlook via Excel VBA

macro excel envoi email avec piéce jointe

envoyer un mail via access

Discussions similaires

Newsletters