🐦‍🔥⑩エクセルから買目メールを送る

Thunderbird — 受信トレイを身軽に。

Sub 投票買目メール() 'Sub My投票

If Sheets("メモ").Cells(1, 8) = "True" Then
    購入メール
End If

End Sub


Sub 購入メール()

With Sheets("レース")
    .Activate
    MailSubject = "購入レース_" & .Cells(4, 2) & "_" & .Cells(4, 3)
    
    St1 = .Cells(23, 3) '-----------------------買目
    St1 = Replace(St1, ",", "_") 'メールに,使えない
    
    MailBody = ""
    A = 1
    Do
        StX = InStr(St1, "/")
        If StX = 0 Then Exit Do
        MailBody = MailBody & Mid(St1, 1, StX - 1) & vbCrLf
        St1 = Mid(St1, StX + 1)
    Loop
    MailBody = MailBody & vbCrLf
    
    For YR = 5 To 22 '---------------------------出走表
        St1 = Format(.Cells(YR, 4), "0.0")
        If Val(St1) > 0 Then
            St1 = String(6 - Len(St1), "_") & St1 '_入れて6文字にする (スペース使えない)
            
            St2 = Format(.Cells(YR, 5), "0.0")
            St2 = String(6 - Len(St2), "_") & St2
            
            MailBody = MailBody & Format(.Cells(YR, 4), "00") & vbTab & "_指数" & St1 & vbTab & "_Oz" & St2
            MailBody = MailBody & vbTab & "_" & .Cells(YR, 6) & vbTab & .Cells(YR, 7) & vbCrLf
        End If
    Next
    
End With

サンダーバード起動

End Sub


Sub サンダーバード起動() 'スマホ節電中は着信音ならない？
 
Dim strTBPath As String   ' サンダーバードパス
Dim strTo As String       ' 宛先
Dim strCC As String       ' CC
Dim strBCC As String      ' BCC
Dim strSubject As String  ' 件名
Dim strBody As String     ' 本文
Dim strFilePath As String ' 添付ファイルパス
Dim strAdress$

OSドライブ

Open OsDC & "メール.txt" For Input As #1 'ファイル#1を開く
Line Input #1, St1 ' 一行を読み取って St1 に格納
Close #1 ' ファイルを閉じる

strAdress = St1 'アドレス

' exeの場所が違うと立ち上がらないので注意
strTBPath = """C:\Program Files\Mozilla Thunderbird\thunderbird.exe"" -compose "

strSubject = MailSubject
strBody = MailBody

' 宛先系複数送信時はカンマ区切り
'strAdress = "'hamami@hamalabo.com'"
'strCC = "''"
'strBCC = "''"

strFilePath = ""

Shell strTBPath & _
      "to=" & strAdress & "," & _
      "cc=" & strCC & "," & _
      "bcc=" & strBCC & "," & _
      "subject=""" & strSubject & """," & _
      "body=""" & strBody & """," & _
      "attachment=""" & strFilePath & """"
      
      
サンダーバードTop
まち3
まち3
サンダーバード送信 'keyを送る（非同期）メールが前面に無いとダメ
まち3

'メール送信音
Beep

End Sub

これで競馬でプログラムの作成
終わりとします。
見ていたたいだ方々有難うございました。
お疲れ様でした😎