| |
まずは、下記をお試し下さい。
手作業の場合：
1. メニューバーから[ファイル]をクリックして、
2. [送信]から[メールの宛先]を選択する。
[宛先]にメールアドレスを入力する。
3. [コピーの送信]を押して送信。
（おそらく自動でHTML形式で送信）
VBAの場合：
やはり、HTML形式でメールを作成します。
下のマクロは、取り敢えず参照設定なしでも動きます。
Sub MyWdMail00()
Rem *----*----* *----*----* *----*----* *----*----*
Rem Word文書内容電子メール送信処理
Rem 言語：Word VBA
Rem 機能...
Rem Wordの文書上にあるデータをコピーして、
Rem 電子メールの本文に貼り付け送信する。
Rem 注記...
Rem 1. Microsoft Outlook上で、下記の手作業による事前設定が必要。
Rem Microsoft Outlookのメニューバーの[ツール]から[オプション...]をクリックし、
Rem [メール形式]タブの[電子メールの編集にMicrosoft Wordを使用する]チェックボックスを
Rem オンにする。（既定値）
Rem 履歴...
Rem 第1版：2006/06/06：作成。
Rem *----*----* *----*----* *----*----* *----*----*
Rem 参照設定する場合...
Rem Microsoft Outlook 10.0 Object Library
Rem *----*----* *----*----* *----*----* *----*----*
Dim myOutlook As Variant ' Outlook.Application
Dim myMail As Variant ' MailItem
'
Selection.WholeStory
Selection.Copy
Selection.Collapse wdCollapseStart
'
On Error Resume Next
Set myOutlook = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
Set myOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
'
Set myMail = myOutlook.CreateItem(0) ' = myOutlook.CreateItem(olMailItem)
myMail.Subject = "このメールはテストです。"
myMail.To = "xxxxxxxxx@xxx.com";
myMail.BCC = "xxxxxx@xxxx.ne.jp";
' myMail.Body = "下記の通り、お知らせ致します。" & vbCrLf & vbCrLf
myMail.FlagRequest = "酷い！"
myMail.Importance = 2 ' = olImportanceHigh
Rem olImportanceHigh olImportanceLow olImportanceNormal
Rem メッセージ形式...
Rem テキスト形式の場合、書式設定（文字色・蛍光ペン書式など）は無効になる。
myMail.BodyFormat = 2 ' 1 = olFormatPlain / 2 = olFormatHTML
myMail.Display
'
Selection.EndKey Unit:=wdStory, Extend:=wdMove
On Error Resume Next ' 文書に何も入力されていない場合に対処。
Selection.Paste
On Error GoTo 0
'
'
Set myOutlook = Nothing
Set myMail = Nothing
End Sub ' MyWdMail00 *----*----* *----*----* *----*----* *----*----*
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
