Excel VBA質問箱 IV

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

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


4495 / 13644 ツリー ←次へ | 前へ→

【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 発言[未読]

【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

【56251】Re:リッチテキストメールに色文字、太字...
質問  tuetue  - 08/6/11(水) 12:35 -

引用なし
パスワード
   >HTMLと関係ありそうな気がしますが、HTML知識がありません
どうなんでしょう

アプローチの方向性だけでもアドバイス頂けるとうれしいです
よろしくお願いいたします

【56284】Re:リッチテキストメールに色文字、太字...
発言  ハチ  - 08/6/12(木) 15:18 -

引用なし
パスワード
   ▼tuetue さん:
>>HTMLと関係ありそうな気がしますが、HTML知識がありません
>どうなんでしょう
>
>アプローチの方向性だけでもアドバイス頂けるとうれしいです
>よろしくお願いいたします

Resが付かないようですので・・
自分はOutlookもHTMLメールも使わないので、わかりませんが、
コードの中身自体はOutlookのマクロですよね?

Outlookのマクロの質問を受け付けているサイトで質問したほうが、
より良いResがつくのではないですか?

【56305】Re:リッチテキストメールに色文字、太字...
発言  tuetue  - 08/6/12(木) 18:29 -

引用なし
パスワード
   ▼ハチ さん:

こんにちは ありがとうございます

>コードの中身自体はOutlookのマクロですよね?
ていうか
エクセルVBAで実行しているコードです

>Outlookのマクロの質問を受け付けているサイトで質問したほうが、
>より良いResがつくのではないですか?
この辺、アウトルック専用コードではないような気がしました

アウトルック系板探して見たいと思います

ありがとうございました

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