Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


26308 / 76732 ←次へ | 前へ→

【55756】Re:VBAでメール送信をすると本文が文字化けをする
質問  こーへい  - 08/5/18(日) 16:59 -

引用なし
パスワード
   こんにちは。かみちゃんさん。

質問にお答えします。

>どのようなコードで送信しているのでしょうか?
Sub Send_Mail()
  
Dim bobj, msg As String
Dim Server As String, MailTo As String, MailFrom As String, Subject As String, File As String

  Sheets("test").Cells(8, 1).Value = m_body
  
  m_sub = Sheets("test").Cells(1, 1).Text
  m_body = Sheets("test").Cells(2, 1).Text
  
  
  Set bobj = CreateObject("basp21")
  Server = "mail△△△△"
  MailTo = "kohei@△△△△"
  MailFrom = "kohei@△△△△"
  Subject = m_sub
  Body = m_body
  File = ""
  msg = bobj.SendMail(Server, MailTo, MailFrom, Subject, Body, File)
  Set bobj = Nothing

  If msg <> "" Then MsgBox msg

Next i

End Sub

以上のようなコードを用いています。

>どれくらいの文字数だと文字化けするのですか?
だいたいですが、900から1000文字程度で文字化けします。

>文字数というより、使っている文字とかではないのでしょうか?
文字化けした部分のみを送信してみるとちゃんと送信されます。
なので、文字ではないと思われます。

>メールサーバーを変えても一緒でしょうか?
メールサーバを変えても一緒でした。

何か、アドバイスがあればよろしくお願いします。
0 hits

【55749】VBAでメール送信をすると本文が文字化けをする こーへい 08/5/18(日) 15:20 発言
【55750】Re:VBAでメール送信をすると本文が文字化け... かみちゃん 08/5/18(日) 15:25 発言
【55756】Re:VBAでメール送信をすると本文が文字化け... こーへい 08/5/18(日) 16:59 質問

26308 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free