Outlook 2013/Excel 2013で電子メールを送信

Question

私は現在、電子メールをスプレッドシートに送信するためにキューに入れ、Outlookアプリケーション（ExcelとOutlookはともに2013年版）から送信するプログラムを持っています。

私はプログラムを実行すると問題なく進みますが、同僚がプログラムを実行すると「プログラムがあなたの代わりにメッセージを送信しようとしています」というメッセージが表示され続け、それぞれ個別に拒否することもできます。

私は、レジストリを変更して（これを試しても何も変わっていない）、セキュリティ設定（まだ何も変わっていない）からこれを解決する方法を探しました。

これをVBAで処理する方法はありますか？

現在のコードは次のようになります。

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 

ありがとう！

Answer 1

短い答え：最新のウイルス対策アプリケーションをインストールするか、RedemptionまたはClickYesのような製品を使用してください。

さらなるオプションと詳細な説明については、http://www.outlookcode.com/article.aspx?id=52を参照してください。

Answer 2

ロンのsite代わり.Send

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

のから、これは単に送信する電子メールとのSendKeysのAlt-Sが表示されます。