【EXCELでBeckyからメール送信】EXCEL内のボタンを押すとOutlookが立ち上がる→新規メールにはEXCELの選択範囲テキストが入力されている→内容を確認＆追記して送信というマクロを使っていました（Outlook.Application）。メーラーがBeckyに変わってしまったため、同じ処理をBeckyで実現する方法を教えてください。■備考：mailtoリンクでは本文文字数が少ないです。CDO、BASP21ではなく、Beckyを使う方法を知りたいです。（社内利用のためできるだけ前と同じフローにしたいです）

何のエレガントさもテクもないマクロですが、こんなんで宜しければ。

自分の手元のPCでは失敗がありませんでしたが

少し動作が重たいPCではTo、Subject、Bodyのペイストに失敗する可能性があります。

その場合は、コメントアウトしてあるウェイトを有効にして下さい。上手く行くかも。

その辺りの安全対策も現バージョンでは全く取っておりません。

下記マクロを使用される場合、実行前に一度だけ

VBAメニューの[ツール]-[参照設定]から"Microsoft Forms 2.0 Object Library"に

チェックを入れから、ワークブックを保存して下さい。

Option Explicit

Sub Test()

    Dim strBody As String
    Dim rngSCell As Range

        For Each rngSCell In Selection
            strBody = strBody & rngSCell.Value & Chr(13) & Chr(10)
        Next
    hatena_tskmry_101117 "dummy@hatena.jp", "This is a test mail.", strBody

End Sub

Sub hatena_tskmry_101117(strTo As String, strSubject As String, strBody As String)

    Const StrPathBk As String = "C:\Program Files\Rimarts\B2\B2.exe"
        ' Becky!実行ファイルへのフルパス

    On Error GoTo TrapErr1
    AppActivate "Becky!"
    AppWaitSec 1
    On Error GoTo 0
    SendKeys "%mc", True
    AppWaitSec 1
    PasteText strTo
'    AppWaitSec 1
    SendKeys "%s", True
'    AppWaitSec 1
    PasteText strSubject
'    AppWaitSec 1
    SendKeys "{tab}", True
'    AppWaitSec 1
    PasteText strBody
 
Exit Sub

TrapErr1:
    Shell StrPathBk
    AppWaitSec 3
    Resume Next

End Sub

Function PasteText(strPaste As String) As String

    Dim dobj As New DataObject

    dobj.SetText strPaste
    dobj.PutInClipboard
    SendKeys "^v", True

End Function

Sub AppWaitSec(intSec As Integer)

    Application.Wait Now + TimeSerial(0, 0, intSec)

End Sub