|
こんにちは。かみちゃんさん。
質問にお答えします。
>どのようなコードで送信しているのでしょうか?
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文字程度で文字化けします。
>文字数というより、使っている文字とかではないのでしょうか?
文字化けした部分のみを送信してみるとちゃんと送信されます。
なので、文字ではないと思われます。
>メールサーバーを変えても一緒でしょうか?
メールサーバを変えても一緒でした。
何か、アドバイスがあればよろしくお願いします。
|
|