A voir également:
- Vba outlook
- Nouveau outlook - Guide
- Compte outlook gratuit - Guide
- Outlook mot de passe oublié - Guide
- Réponse automatique outlook - Guide
- Synchroniser agenda google et outlook - Guide
5 réponses
Merci ça marche en modifiant lègérement ton code. Merci beaucoup.
'
' Vérification de l'ouverture de la messagerie
'
Set Appli = CreateObject("Outlook.Application")
'
If Appli.Explorers.Count > 0 Then GoTo OutLookEstDemarrer
MsgBox "Vous devez démarrer votre messagerie : Maintenant !", vbExclamation, "Action à faire..."
GoTo Fin
'
' On peut commencer l'enregistrement
'
OutLookEstDemarrer:
'
' Vérification de l'ouverture de la messagerie
'
Set Appli = CreateObject("Outlook.Application")
'
If Appli.Explorers.Count > 0 Then GoTo OutLookEstDemarrer
MsgBox "Vous devez démarrer votre messagerie : Maintenant !", vbExclamation, "Action à faire..."
GoTo Fin
'
' On peut commencer l'enregistrement
'
OutLookEstDemarrer:
Bonjour,
Je cherchais justement à tester l'ouverture d'outlook, ça m'a bien servi merci. Idem je fais une base de données de gestion de réclamations + constat d'anomalie, en gérant la communication automatique par mail des personnes concernées, sur ce qu'elles ont réalisé dans le process.
Au lieu de demander d'ouvrir outlook à l'user, tu peux juste faire un Call Shell("Outlook.exe", 1), mais tu as dû t'en douter déjà.
Voilà, vive l'entraite
Rip
Je cherchais justement à tester l'ouverture d'outlook, ça m'a bien servi merci. Idem je fais une base de données de gestion de réclamations + constat d'anomalie, en gérant la communication automatique par mail des personnes concernées, sur ce qu'elles ont réalisé dans le process.
Au lieu de demander d'ouvrir outlook à l'user, tu peux juste faire un Call Shell("Outlook.exe", 1), mais tu as dû t'en douter déjà.
Voilà, vive l'entraite
Rip
thev
Messages postés
1853
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
27 avril 2024
681
15 juin 2009 à 19:26
15 juin 2009 à 19:26
voici le test que je pratique :
Set appli_outlook = Outlook.Application If appli_outlook.Explorers.Count > 0 Then appli_outlook.SendOutlookMsg return_msg, SendTo, sCC, sBCC, Subject, BodyText, sAttachment Else MsgBox "erreur envoi e_mail car outlook non chargé" End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question