QA@IT
«質問へ戻る

4
タグ

basp21でのメール送信

excel VBAでbasp21を利用してメール送信しようとしています。

過去の記事http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=48088&forum=7
で、本文をMIME形式で付加するとありますが
具体的にどういう記述にするのでしょうか?

mailto文にcontent-typeを下記のように指定したときに、本文をどういう記述にすればよいのでしょうか?

'宛先
mailto = ">Content-Type: multipart/mixed; boundary=xxxx" & vbTab & eMail

'送信者
mailfrom = mSender & vbTab & id & ":" & pass
'件名
subj = "mmm"


'本文
body = "<HTML><BODY>" & vbCrLf & "<H1>こんちは</H1>" & vbCrLf & "</BODY></HTML>" & "abc"


file = "d:\mydoc\macro\mysql.txt"

'メール送信
msg = bobj.SendMail(svname, mailto, mailfrom, subj, body, file)
excel VBAでbasp21を利用してメール送信しようとしています。

過去の記事http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=48088&forum=7
で、本文をMIME形式で付加するとありますが
具体的にどういう記述にするのでしょうか?

mailto文にcontent-typeを下記のように指定したときに、本文をどういう記述にすればよいのでしょうか?

    
    '宛先
    mailto = ">Content-Type: multipart/mixed; boundary=xxxx" & vbTab & eMail

    '送信者
    mailfrom = mSender & vbTab & id & ":" & pass
    '件名
    subj = "mmm"
    
    
    '本文
    body = "<HTML><BODY>" & vbCrLf & "<H1>こんちは</H1>" & vbCrLf & "</BODY></HTML>" & "abc"
    

    file = "d:\mydoc\macro\mysql.txt"
    
    'メール送信
    msg = bobj.SendMail(svname, mailto, mailfrom, subj, body, file)

質問を投稿

basp21でのメール送信

excel VBAでbasp21を利用してメール送信しようとしています。

過去の記事http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=48088&forum=7
で、本文をMIME形式で付加するとありますが
具体的にどういう記述にするのでしょうか?

mailto文にcontent-typeを下記のように指定したときに、本文をどういう記述にすればよいのでしょうか?

'宛先
mailto = ">Content-Type: multipart/mixed; boundary=xxxx" & vbTab & eMail

'送信者
mailfrom = mSender & vbTab & id & ":" & pass
'件名
subj = "mmm"


'本文
body = "<HTML><BODY>" & vbCrLf & "<H1>こんちは</H1>" & vbCrLf & "</BODY></HTML>" & "abc"


file = "d:\mydoc\macro\mysql.txt"

'メール送信
msg = bobj.SendMail(svname, mailto, mailfrom, subj, body, file)
excel VBAでbasp21を利用してメール送信しようとしています。

過去の記事http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=48088&forum=7
で、本文をMIME形式で付加するとありますが
具体的にどういう記述にするのでしょうか?

mailto文にcontent-typeを下記のように指定したときに、本文をどういう記述にすればよいのでしょうか?

    
    '宛先
    mailto = ">Content-Type: multipart/mixed; boundary=xxxx" & vbTab & eMail

    '送信者
    mailfrom = mSender & vbTab & id & ":" & pass
    '件名
    subj = "mmm"
    
    
    '本文
    body = "<HTML><BODY>" & vbCrLf & "<H1>こんちは</H1>" & vbCrLf & "</BODY></HTML>" & "abc"
    

    file = "d:\mydoc\macro\mysql.txt"
    
    'メール送信
    msg = bobj.SendMail(svname, mailto, mailfrom, subj, body, file)