Set NewItem =
Application.CreateItem(0)
strMsg = ""
strMsg = "下記についてご連絡ください。" &
vbcrlf
strMsg =
strMsg & "--------------------------------" & vbcrlf
strMsg = strMsg & "氏名:"
& vbcrlf
strMsg = strMsg & "年齢:"
& vbcrlf
NewItem.Body = strMsg
NewItem.Display |
★新規メッセージを作成
★本文用の変数(strMsg)を初期化
★変数(strMsg)に内容を格納 (vbcrlfは改行を表します。)
★同上
★同上
★同上
★メッセージの本文を変数(strMsg)の内容とする
★新規メッセージを表示する
|