Wie automatisieren Sie Outlook?

Question

Ich versuche, E-Mail von unserem ERP-System zu senden. Ich habe versucht, mit SMTP, aber es funktioniert nur für interne E-Mails und scheitert für externe E-Mail beschweren sich nicht zu Relais oder etwas. Ich denke, der Manager möchte oder will nicht, wie man Exchange richtig konfiguriert.

Also mein Chef sagte mir, Outlook zu verwenden. Das Problem ist, dass mein Code im Debug funktioniert, aber fehlschlägt, wenn Outlook geöffnet ist, was es in fast jedem Fall sein wird. Ich habe es geschafft, die Installation der Verkäufer zu modifizieren, aber wir würden es vorziehen, dies nicht zu tun. Wir verwenden Intuitive ERP 8.5. Es speichert seine Bibliotheksdateien im Standardordner, und es gibt einen benutzerdefinierten Ordner für jeden benutzerdefinierten Code oder geerbte Anbieterobjekte.

Program Files \ IntuitiveERP.exe Programme \ IntuitiveERP \ Custom Programme \ IntuitiveERP \ Standard-

Wenn ich das Programmverzeichnis auf der Wurzel C setzen: und die Standard- und kundenspezifischen kombinieren Ordner der Code funktioniert ob Outlook geöffnet oder geschlossen ist. Wir würden es vorziehen, die Installation des Herstellers nicht zu ändern, da dies zu Problemen bei Aktualisierungen führen kann.

'Fails with Cannot create ActiveX component. 
objOutlook = CType(CreateObject("Outlook.Application"), Outlook.Application) 
'Fails with Retrieving the COM class factory for component with CLSID {0006F03A-0000-0000-C000-000000000046} failed due to the following error: 80080005. 
objOutlook = New Outlook.Application 
mobjEmail = CType(objOutlook.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem) 

With mobjEmail 
    .CC = strEmployeeEmail 
    .Subject = String.Format(Constants.RFQ.Email.Subject, strRFQID) 
    .To = strTo 
    .Body = Constants.RFQ.Email.Body 
    .Attachments.Add(String.Format(Constants.RFQ.Output.FullPath, strRFQID)) 
    .Display(True) 
End With 

Eine Idee, wie Sie einen Verweis auf Outlook erhalten, wenn es geöffnet ist? Irgendwelche alternativen Lösungen?

Answer 1

Sie können dies versuchen:

Try 
    objOutlook = Marshal.GetActiveObject("Outlook.Application") 
Catch ex As Exception 
    objOutlook = CType(CreateObject("Outlook.Application"), Outlook.Application) 
End Try 

Beachten Sie, dass es Probleme gibt, wenn innerhalb von Visual Studio als Administrator ausgeführt wird und Outlook zugreifen, wenn es bereits im User-Modus ausgeführt wird. Siehe this. Versuchen Sie, die EXE-Datei direkt aus dem Ordner "bin" auszuführen (führen Sie sie nicht als Administrator aus).