|
エクセルから下記メールを送信したいと思っています
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
|
|