mail quand Outlook est pas déjà ouvert

Question

Ma situation:

Je suis en train d'envoyer des e-mails alors que Outlook n'est pas ouvert. Ce code fonctionnera si Outlook est en cours d'exécution. Si Outlook est fermé, le code créera un processus non visible que vous pouvez voir s'exécuter dans le Gestionnaire des tâches. Le code rencontre une erreur pendant le code .Send. Il renvoie l'erreur d'exécution 287.

D'après mon expérience, certaines méthodes VBA ne fonctionnent que lorsque l'objet est visible ou actif. Mon travail consiste à utiliser .Display(False) avant d'appeler .Send.

Après avoir appelé .Send, il met immédiatement fin au processus Outlook. (S'il vous plaît pointez-moi vers la bonne direction pourquoi.) Ensuite, l'e-mail reste coincé dans la boîte d'envoi.

je dois appliquer un autre travail autour en appelant une autre CreateObject("Outlook.Application") et soit en boucle à travers la boîte d'envoi While Outbox.Items.Count > 0

ou

Looping par SyncObjects et appeler manuellement .Start pour exécuter Envoyer/Recevoir sur la boîte d'envoi.

Ma question:

Y at-il un moyen d'utiliser directement la méthode .Send au lieu d'utiliser arounds de travail tout en ne pas avoir à ouvrir Outlook.

Mon code:

Sub emailer() 

Dim OutApp As Object 
Dim OutMail As Object 

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

With OutMail 
    .to = "f@r.com" 
    .CC = "" 
    .BCC = "" 
    .Subject = "This is the Subject line" 
    .Body = "Hi there" 
    .Send 'or use .Display 
End With 

Set OutMail = Nothing 
Set OutApp = Nothing 

End Sub 

Answer 1

utilisez Namespace.SendAndReceive. Gardez à l'esprit que Envoyer/Recevoir est asynchrone et vous devez weit la synchronisation pour terminer. vous pouvez utiliser Namespace.SyncObjects collection, lancer une synchronisation à l'aide SyncObject.Start, alors attendez le SyncObject.SyncEnd événement.

Pour empêcher Outlook de se fermer, vous devez conserver une référence dynamique à un objet Outlook Explorer ou Inspector. Vous pouvez récupérer le dossier Boîte de réception en utilisant Namespace.GetDefaultFolder, puis utiliser la méthode MAPIFolder.GetExplorer pour obtenir un pointeur vers un objet Explorer.

MISE À JOUR:

Vous pouvez également vous assurer que vous n'êtes pas connecté à un profil MAPI avant de créer et d'envoyer un message. Après la ligne de CreateObject, essayez d'ajouter ce qui suit

set NS = OutApp.GetNamespace("MAPI") 
NS.Logon 

Answer 2

Une solution pour le problème de .send avec la fermeture d'Outlook peuvent éventuellement être résolus en changeant les paramètres d'envoi/réception. Allez dans Fichier -> Options -> Avancé -> trouvez Send/Receive... et appuyez dessus. Sous la rubrique « Paramétrage du groupe « Tous les comptes » est une case à cocher pour Perform an automatic send/receive when exiting Cochez cette case, et il peut résoudre le. « Coincé dans le numéro Outbox vous avez »

Voici une capture d'écran.

pour cette solution, nous espérons qu'il aide.