'Outlookを呼び出してMail作成
Sub OUTLOOK()
	Dim objOutlook As OUTLOOK.Application
	Dim objOutlookMsg As OUTLOOK.MailItem
	Dim objOutlookRecip As OUTLOOK.Recipient
	Dim objOutlookAttach As OUTLOOK.Attachment
	
	Set objOutlook = CreateObject(“Outlook.Application")
	Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
	'メイン
	With objOutlookMsg
		.Subject = “title"
		.Body = “本文"
		'宛先準備
		Set objOutlookRecip = .Recipients.Add(“xxx@bbb.com")
		objOutlookRecip.Type = olTo
		Set objOutlookRecip = .Recipients.Add(“zzz@bbb.com")
		objOutlookRecip.Type = olCC
		'完成Mailを表示
		.Display
		'いきなり送付させる場合は下記を使用
		'.SEND
	End With
	
	Set objOutlookMsg = Nothing
	Set objOutlook = Nothing
	
	MsgBox “送付完了！"

End Sub