Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


25835 / 76732 ←次へ | 前へ→

【56234】リッチテキストメールに色文字、太字、文字サイズ
質問  tuetue  - 08/6/10(火) 14:39 -

引用なし
パスワード
   エクセルから下記メールを送信したいと思っています
HTMLと関係ありそうな気がしますが、HTML知識がありません

リッチテキストで
下記設定したいのですがよくわかりません
アドバイスよろしくお願いいたします


Private Sub CommandButton1_Click()


Dim OLApp   As Object
Dim myNMSpace As Object
Dim myFolder As Object
Dim myMail  As Object
Dim i  As Long

On Error Resume Next
Set OLApp = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
  Set OLApp = CreateObject("Outlook.Application")
  Set myNMSpace = OLApp.GetNamespace("MAPI")
  Set myFolder = myNMSpace.GetDefaultFolder(6) '規定のフォルダーを指定
  myFolder.Display '表示
  
End If
On Error GoTo 0
 
 Set myMail = OLApp.CreateItem(0)

 With myMail

   '.Display
   '.Recipients.Add ("xxxxxx")
   .To = "xxxxxx"
   .Subject = "TEST"
   .Body = "標準黒"
   .Body = .Body & "赤字" & vbCrLf
   .Body = .Body & "赤太字" & vbCrLf
   .Body = .Body & "フォント" & vbCrLf
   .Body = .Body & "フォントサイズ"   
   '.Send
   .Display
  
  End With
  
'SendKeys "%s", True
  
'If Excel.Application.Wait(Now + TimeValue("0:00:03")) Then

   'SendKeys "%s", True '2003時
   'SendKeys "%(f)e", True '2000時
   
   
   'If Val(Application.Version) < 10 Then
   
   ' SendKeys "%(f)e", True '2000時
   
   'ElseIf Val(Application.Version) > 10 Then
   
   ' SendKeys "%s", True '2003時
   
   'End If
   
   
'End If


End Sub

0 hits

【56234】リッチテキストメールに色文字、太字、文字サイズ tuetue 08/6/10(火) 14:39 質問
【56251】Re:リッチテキストメールに色文字、太字、... tuetue 08/6/11(水) 12:35 質問
【56284】Re:リッチテキストメールに色文字、太字、... ハチ 08/6/12(木) 15:18 発言
【56305】Re:リッチテキストメールに色文字、太字、... tuetue 08/6/12(木) 18:29 発言

25835 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free