Excel VBA質問箱 IV

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

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


4593 / 13644 ツリー ←次へ | 前へ→

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

【55749】VBAでメール送信をすると本文が文字化け...
発言  こーへい  - 08/5/18(日) 15:20 -

引用なし
パスワード
   VBAでメール送信をすると本文が文字化けをしてしまいます。

プログラム自体は問題なく動くのですが、
本文の文字数が多くなると文字化けをしてしまいます。

文字数が少ないときは何の問題もありません。

文字数制約があるのでしょうか?

また、それを回避する方法はあるのでしょうか?

どなたかアドバイスお願いします。

ちなみに、basp21を使ってメール送信をしています。

【55750】Re:VBAでメール送信をすると本文が文字化...
発言  かみちゃん  - 08/5/18(日) 15:25 -

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

>VBAでメール送信をすると本文が文字化けをしてしまいます。

同様にbasp21(正確には、BSMTP32.DLL)を使って、メールの送受信をしていますが、
本文の文字数がさほど多いわけではないので、おっしゃるような事象には、遭った
ことはありません。

>本文の文字数が多くなると文字化けをしてしまいます。

どのようなコードで送信しているのでしょうか?
どれくらいの文字数だと文字化けするのですか?
文字数というより、使っている文字とかではないのでしょうか?
メールサーバーを変えても一緒でしょうか?

【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文字程度で文字化けします。

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

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

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

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