MailItem の送信元となるアカウントを表す Account オブジェクトを返すか設定します。 値の取得と設定が可能です。
構文
expression。 SendUsingAccount
式MailItem オブジェクトを返す式。
注釈
SendUsingAccount プロパティを使用すると、Send メソッドが呼び出されたときにメールアイテムの送信に使用するアカウントを指定できます。 MailItem に指定したアカウントがもはや存在しない場合は、Null (Visual Basic では Nothing) が返されます。
例
Microsoft Visual Basic for Applications の次のコード サンプルでは、Pop3 アカウントを検索するための Accounts コレクションを列挙しています。 アカウントが見つかった場合は、プログラムによってメッセージが作成され、 SendUsingAccount プロパティが Pop3 アカウントに割り当てられます。 SendUsingAccount プロパティは、 Send メソッドを呼び出す前に割り当てておく必要があります。
Sub SendUsingAccount()
Dim oAccount As Outlook.account
For Each oAccount In Application.Session.Accounts
If oAccount.AccountType = olPop3 Then
Dim oMail As Outlook.MailItem
Set oMail = Application.CreateItem(olMailItem)
oMail.Subject = "Sent using POP3 Account"
oMail.Recipients.Add ("someone@example.com")
oMail.Recipients.ResolveAll
Set oMail.SendUsingAccount = oAccount
oMail.Send
End If
Next
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。