Senden von E-Mails mit Outlook 2013/Excel 2013

Question

Ich habe derzeit ein Programm, das E-Mails in eine Tabelle schreibt und diese dann über die Outlook-Anwendung versendet (Excel und Outlook sind beide 2013-Versionen).

Wenn ich das Programm ausführen, passiert es ohne ein Problem, aber wenn ein Mitarbeiter das Programm ausführt, erhalten sie weiterhin die Aufforderungen "Ein Programm versucht, eine Nachricht in Ihrem Namen zu senden" und dann müssen sie zulassen oder leugne jeden einzeln.

Ich habe verschiedene Methoden untersucht, um dies zu beheben, indem ich die Registrierung änderte (versuchte das und es änderte nichts) in Sicherheitseinstellungen (noch nichts).

Gibt es eine Möglichkeit, dies mit VBA zu beheben?

Der aktuelle Code ist:

Sub SendEmail(what_address As String, subject_line As String, mail_body_message As String) 

Dim olApp As Outlook.Application 
Dim oAttach As Outlook.Attachment 

Set olApp = CreateObject("Outlook.Application") 

Dim olMail As Outlook.MailItem 

Set olMail = olApp.CreateItem(olMailItem) 

With olMail 

.To = "ADDRESS" 

.Subject = "SUBJECT" 

.BodyFormat = olFormatHTML 

.HTMLBody = mail_body_message 

'.CC = "EMAIL" 
.BCC = "" 

.Importance = olImportanceHigh 

.ReadReceiptRequested = True 

.Send 

End With 

End Sub 

Dank!

Answer 1

Kurze Antwort: Installieren Sie eine aktuelle Anti-Virus-App oder verwenden Sie Produkte wie Redemption oder ClickYes.

Weitere Optionen und ausführliche Erläuterungen finden Sie unter http://www.outlookcode.com/article.aspx?id=52.

Answer 2

Von Rons site statt .Send

.Display 
Application.Wait (Now + TimeValue("0:00:02")) 
Application.SendKeys "%s" 

Dies bringt nur die E-Mail und Tastaturbefehle Alt-S zu senden.