VBからBeckyのBCCを設定する方法 (ID:100786)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

環境
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

←解決時は質問者本人がここをチェックしてください。

戻る