Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15154 / 76734 ←次へ | 前へ→

【67063】Re:現在ブックを添付してメールするには
発言  keisuke  - 10/10/29(金) 23:59 -

引用なし
パスワード
   しっかり、読みましたでしょうか???
書いてありますが、、、、
一度、実行してみてください。


Sub CreateOutlookMail()
  Dim olApp         As Outlook.Application
  Dim olMailMessage     As Outlook.MailItem
  Dim olRecipient      As Outlook.Recipient
  Dim blnKnownRecipient   As Boolean
 
  ' Outlook の新しいインスタンスを作成または現在のインスタンスを開きます。
  Set olApp = New Outlook.Application
  ' 新しいメッセージを作成します
  Set olMailMessage = olApp.CreateItem(olMailItem)
  ' メッセージの受信者に通知し、アドレスを解読して、
  ' 送信または表示します。
  With olMailMessage
   Set olRecipient = .Recipients.Add(InputBox("メッセージの受信者名を入力します", _
     "受信者名"))
   blnKnownRecipient = olRecipient.Resolve
   .Subject = "オートメーションでメールをテストする"
   .Body = "このメッセージはオートメーションを使用して Outlook を " _
     & "起動する VBA コードによって作成されました。"
   If blnKnownRecipient = True Then
     .Send
   Else
     .Display
   End If
  End With
  Set olMailMessage = Nothing
  olApp.Quit
  Set olApp = Nothing
End Sub
2 hits

【66754】現在ブックを添付してメールするには MASATO 10/10/3(日) 20:17 質問
【66801】Re:現在ブックを添付してメールするには ASP21 10/10/6(水) 21:31 回答
【66815】Re:現在ブックを添付してメールするには keisuke 10/10/7(木) 18:47 発言
【66818】Re:現在ブックを添付してメールするには Masato/S 10/10/7(木) 20:41 質問
【66819】Re:現在ブックを添付してメールするには keisuke 10/10/7(木) 21:09 発言
【66904】Re:現在ブックを添付してメールするには Masato/S 10/10/16(土) 12:23 質問
【66911】Re:現在ブックを添付してメールするには keisuke 10/10/16(土) 16:13 回答
【66937】Re:現在ブックを添付してメールするには Masato/S 10/10/18(月) 21:45 質問
【66938】Re:現在ブックを添付してメールするには neptune 10/10/18(月) 22:51 発言
【67059】Re:現在ブックを添付してメールするには Masato/S 10/10/29(金) 21:58 質問
【67063】Re:現在ブックを添付してメールするには keisuke 10/10/29(金) 23:59 発言
【67111】Re:現在ブックを添付してメールするには Masato/S 10/11/4(木) 17:57 お礼

15154 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free