環境
Windows 2000
Microsoft Visual Basic 6.0
vbからメーラーを起動するプログラムを書いています
使用しているメーラーはBecky!2です
以下のプログラムを実行したところ問題なく実行できたのですが
BCCのデータだけ設定されません・・
Microsoft Outlook、Mozilla Thunderbirdではうまくいきました
どなたかわかる方お願いします。
Const DEF_MAIL_CMD2 As String = "HKEY_CLASSES_ROOT\mailto\shell\open\command\"
Public Sub startMailer()
Dim objShell As Object
Dim strCmd As String
Dim strTemp As String
Dim pgPath As String
pgPath = "C:\Program Files"
On Error GoTo MAIL_ERR
Set objShell = CreateObject("WScript.Shell")
'メーラ取得
strCmd = objShell.RegRead(DEF_MAIL_CMD2)
strCmd = Replace(strCmd, "%ProgramFiles%", pgPath)
strTemp = "mailto:aa@aa.jp"
strTemp = strTemp & "?cc=cc@cc.jp"
strTemp = strTemp & "&bcc=bb@bb.jp"
strTemp = strTemp & "&subject=件名"
strTemp = strTemp & "&body=本文"
strCmd = Replace(strCmd, "%1", strTemp)
Shell strCmd
Set objShell = Nothing
Exit Sub
MAIL_ERR:
MsgBox "メールソフトの起動に失敗しました" & vbCrLf & Err.Description
End Sub