次の方法で共有

MailItem.Forward メソッド (Outlook)

  • [アーティクル]

アイテムの " 転送" アクションを実行し、その結果作成されるコピーを MailItem オブジェクトとして返します。

構文

expression。 Forward

expression は MailItem オブジェクトを表す変数です。

戻り値

新しい電子メール アイテムを表す MailItem オブジェクト。

例

この Visual Basic for Applications (VBA) の例では、Dan Wilson に送信する前に転送されたメッセージからすべての添付ファイルを削除するのには、 Remove メソッドを使用します。 この例を実行するには、' Dan Wilson' を有効な受信者の名前に置き換えます、作業中のウィンドウで 1 つ以上の添付ファイルを含むメール アイテムを開いたままにしておきます。

Sub RemoveAttachmentBeforeForwarding() 
 
 Dim myinspector As Outlook.Inspector 
 
 Dim myItem As Outlook.MailItem 
 
 Dim myattachments As Outlook.Attachments 
 
 
 
 Set myinspector = Application.ActiveInspector 
 
 If Not TypeName(myinspector) = "Nothing" Then 
 
 Set myItem = myinspector.CurrentItem.Forward 
 
 Set myattachments = myItem.Attachments 
 
 While myattachments.Count > 0 
 
 myattachments.Remove 1 
 
 Wend 
 
 myItem.Display 
 
 myItem.Recipients.Add "Dan Wilson" 
 
 myItem.Send 
 
 Else 
 
 MsgBox "There is no active inspector." 
 
 End If 
 
End Sub

関連項目

MailItem オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。