[[20100517155738]]　『VBAでアウトルックと連携しメール送信する方法』（ネコ）　ページの最後に飛ぶ

『VBAでアウトルックと連携しメール送信する方法』（ネコ）

 質問内容
 VBAで自動的にアウトルックを立ち上げ、メール送信する時、アウトルックの本文にエクセル入力内容を
 メッセージを記載したいが出来ません。
 セル参照で本文を入力できるようにできませんか？

 今はA１セルに送信先にメールアドレスをA２セルにメール件名を記述して次のようにしています。
 A3セルに「あ」と入力し、アウトルックのメール本文に「あ」と表示させる方法を教えてください。
 よろしくお願いします。

 Private Sub CommandButton1_Click()'
 Dim Recipien, Subje, body
 Recipien = Range("a1")
 Subje = Range("a2")

 ThisWorkbook.SendMail Recipients:=Recipien, Subject:=Subje
 End Sub

（EXCEL2003）

 OutLookオブジェクトを生成する方法です。

 Sub shokika()
  Worksheets(1).Cells(1, 1).Value = "送信先"
  Worksheets(1).Cells(1, 2).Value = "Cc"
  Worksheets(1).Cells(1, 3).Value = "件名"
  Worksheets(1).Cells(1, 4).Value = "本文"
  Worksheets(1).Cells(1, 5).Value = "添付ファイル"
 End Sub

 Sub test()
  Dim objApp As Object
  Dim objFolder As Object
  Dim objMAIL As Object
  Dim strTo As String
  Dim strCc As String
  Dim strSubject As String
  Dim strBody As String
  Dim i As Long
    If Worksheets(1).Cells(1, 1).Value = "" Then
       MsgBox "送信先が設定されていません。"
       Exit Sub
    Else
     Set objApp = CreateObject("Outlook.Application")
     Set objFolder = objApp.GetNamespace("MAPI").GetDefaultFolder(4)  '送信トレイ
     Set objMAIL = objApp.CreateItem(0)
     strTo = Worksheets(1).Cells(2, 1).Value
     strCc = Worksheets(1).Cells(2, 2).Value
     strSubject = Worksheets(1).Cells(2, 3).Value
     strBody = Worksheets(1).Cells(2, 4).Value
     objMAIL.To = strTo
     objMAIL.Cc = strCc
     objMAIL.Subject = strSubject
     objMAIL.Body = strBody
      '添付ファイル
      For i = 2 To Worksheets(1).Cells(65536, 5).End(xlUp).Row
        objMAIL.attachments.Add Worksheets(1).Cells(i, 5).Value
      Next i
     objFolder.display
     objMAIL.display
     Set objMAIL = Nothing
     Set objFolder = Nothing
     Set objApp = Nothing
    End If
 End Sub

 (カリーニン)

コメント返信：

[ 一覧(最新更新順) ]

[[20100517155738]] 『VBAでアウトルックと連携しメール送信する方法』（ネコ） ページの最後に飛ぶ

[[20100517155738]]　『VBAでアウトルックと連携しメール送信する方法』（ネコ）　ページの最後に飛ぶ