Outlook上にて、
開いている(選択している)mailに対して、
規定の宛先・本文を追記(先頭に)します。

Sub Create_DHL_Mail()

	Dim objItem As MailItem
	Dim mTitle As String
	Dim mTo As String
	Dim mCc As String
	Dim mBody As String
	
	'付与する情報
	mTo = "xxxx@xxx.com"
	mCc = "xxxx@xxx.com"
	mBody = "既存mailの先頭に文章を追加する" & vbCrLf & "二行目です。"
	
	'現在開いているmail
	Set objItem = ActiveInspector.CurrentItem
	mTitle = objItem.Subject
	
	'開いているmailを書き換える
	objItem.To = mTo
	objItem.CC = mCc
	objItem.Body = mBody & vbCrLf & vbvrlf & objItem.Body
	
End Sub