エクセルでメール作成

質問

WIN2000　OfficeXpです。
エクセルのマクロを使って、マイクロソフトアウトルックのメールを作成したいのですが、
あるシートの
　A1
を件名に
　A2:D2
の範囲を本文に貼り付けるマクロはありますか？
宛先入力、送信は手動でできるように設定したいのですが。
よろしくお願いします。

回答No.3

ja7awu · ベストアンサー

こんな感じで如何でしょうか。

本文の範囲の　"A2:D2"は、1セルずつ改行するのかな？
しないのなら最後から５行目の　"& vbLf"を削除してください。

[ツール]-->[参照設定] で 「Miscosoft Outlook 9.0Object Library」にチェックを入れます。

Sub CreateMail()
'--------- 設定事項 ---------
　　'参照設定 : Miscosoft Outlook 9.0Object Library
　　Const ShName = "Sheet1"
　　Const SbjAdd = "A1"
　　Const BodyAdd = "A2:D2"
'----------------------------
　　Dim olApp As Outlook.Application
　　Dim objMail As Outlook.MailItem
　　Dim Rng As Range
　　Dim StrBody As String
　　Set olApp = Outlook.Application
　　Set objMail = olApp.CreateItem(olMailItem)
　　For Each Rng In Range(BodyAdd)
　　　　StrBody = StrBody & Rng.Value & vbLf
　　Next Rng
　　With objMail
　　　　.Subject = Worksheets(ShName).Range(SbjAdd).Value
　　　　.Body = StrBody
　　　　.Display
　　End With
End Sub

お礼

ありがとうございます。
完璧にできました。
これを応用いろんな設定してみます。

回答No.2

noname#10575

MAPI APIを使えば実現できるはずです。

次の参考ＵＲＬを参考にしてください。

http://www.remus.dti.ne.jp/~shenron/access/knowhow/MAPIAPI.html

http://support.microsoft.com/kb/163216/ja

http://www.microsoft.com/japan/msdn/office/office2003/odc_ac_olauto.asp

お礼

ありがとうございます。
勉強になります。

回答No.1

hana-hana3

詳細は、Outlook のＶＢＡを参照してください。

＞Set oApp = CreateObject("Outlook.Application")

参考URL：

http://www.ken3.org/cgi-bin/group/vba_outlook.asp

お礼

ありがとうございます。
勉強になります。