socketを使ってメールを送信しているのですが、send_add.textがプロバのアドレスだと送信できるけど
send_add.textが携帯のアドレスとかだと送れないんだけど…
エラーコードとして=103（指定したアドレスが見つからない）が返ってくるみたい。何度も確認しながら入力してるからタイプミスじゃないし…

Sub Activate()
dim c as integer
c=instr(send_add.text,"@")
socket1.port=25
Socket1.Address = Mid(send_add.text,c+1)
Socket1.Connect
End Sub

Sub Connected()
dim rt as string
rt=chr(13)+chr(10)
Socket1.write "HELO "+Socket1.Address +rt
Socket1.write "MAIL FROM:"+my_add.Text+rt
Socket1.write "RCPT TO:"+send_add.Text+rt
Socket1.write "DATA"+rt
Socket1.write "SUBJECT: "+subject.Text+rt+rt
Socket1.write mes.Text+rt+"."+rt
Socket1.write "QUIT"+rt
Socket1.close
msgBox "send ok"
End Sub

Sub Error()
msgbox "error="+str(socket1.lastErrorCode)
socket1.close
End Sub