- PR -

[VB6.0]basp21のメール送信で添付ファイルのピリオドが消える

1
投稿者投稿内容
NGO
常連さん
会議室デビュー日: 2005/06/15
投稿数: 29
投稿日時: 2008-10-21 14:22
いつもお世話になっております。
VB6.0,Basp21を使用しております。

Basp21を使用してテキストファイルを添付したメール送信をしております。
テキストファイルには数字(1-9)とピリオド(.)があるのですが、特定の箇所のピリオドが消去されてメール送信されてしまいます。

WEB上や掲示板上で[Basp21 ピリオド(ドット) 添付ファイル] 等のキーワードで検索してみたのですが、見つけることができず悩んでおります。
何卒よろしくお願いいたします。


---- 添付したテキスト (test.txt)-----
1111111111111111111111111111111111111111111111111111111111111111111111111111.11111111111111111111111111111111
11111111111111111111111111111111111111111111111111111111111111111111111111111.1111111111111111111111111111111
111111111111111111111111111111111111111111111111111111111111111111111111111111.111111111111111111111111111111
---------------------------
（上のテキストファイルを添付送信すると、１行目の.が消えてしまいます）

------ 送信プログラム ------
Private Sub Command1_Click()
Dim FileName As String

FileName = Text1.Text 'テキストボックスからファイル名を入力します

Set Basp21 = CreateObject("basp21")
'添付ファイル

rc = Basp21.SendMail("192.168.*.***", "test@test.co.jp", "test@test.co.jp", "test", "test", "D:\\" & FileName)
end sub
------------------

いろいろ試験してみたところ、.の箇所を19@?<>=-などの文字に変えてみた場合はそのまま送信されました。
アウトルック等のメーラーに添付させて送信した場合も、問題なくそのまま送信されます。

別のメールサーバーを指定してみましたが、消えてしまいました。
また、行頭に.がある場合も同様に消えてしまいました。
また、1行まるごと.の文字にしてみたところ、何個かのピリオドが消えていたため、どうも○バイト目といった規則性があるように見受けられます。




[ メッセージ編集済み 編集者: NGO 編集日時 2008-10-21 14:22 ]
1

スキルアップ／キャリアアップ（JOB@IT）