OUTGOING添付ファイルのアーカイブをフォルダ（Outlook以外のWindowsフォルダ）に作成したいとします。このサイトで提供されているいくつかのソリューションを使用してINCOMINGメッセージから添付ファイルを保存するためにスクリプトを使用しましたが、これを送信メール用に設定する方法はありません。また、すべての送信メッセージにスクリプトを適用するルールを設定しようとしましたが、受信メッセージの場合と同様に、送信するメッセージに「スクリプトを実行する」オプションが表示されません。OUTGOINGメッセージから添付ファイルをフォルダに保存するOutlook VBA
Outlookのフォルダを解析するスクリプトを使用している可能性がありますが、メッセージの送信時にリアルタイムで実行する方がはるかに効果的です。
Application.ItemSendイベントを処理します。アイテムはイベントハンドラにパラメータとして渡されます。受信メッセージを処理するのと同じ方法でメッセージ添付ファイルを処理することができます。
あなたは本当に代わりに（おそらくよりよい解決策である）のItemSendイベントの送信トレイを使用する場合は、これを試しては（hereを発見し、送信トレイを使用するように変更）
Public WithEvents myOlItems As Outlook.Items
Public Sub Initialize_handler()
Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderOutbox).Items
End Sub
Private Sub myOlItems_ItemAdd(ByVal Item As Object)
'your code to save attachments here
End Sub
あなたはより正確にすることができれば、それは素晴らしいだろう。 次の場合は、初心者のためにこれを見ることができます。http://stackoverflow.com/questions/17569372/how-to-call-a-macro-on-send-button-click – User632716
質問にスクリプトを追加し、どのオフィスを使用していますか。 – 0m3r