Estoy haciendo un mail sender y tengo 2 problemas:
El primero es que no puedo enviar con otro smtp que el del proveedor en el cual este conectado. en mi caso arnet. He probado con infinidad de otros servidores y todos me dicen que no admiten relay, ni siquiera pude hacerlo con localhost usando minirelay y otros servidores locales.
El segundo problema es con el tema de ocultar la ip. He probado varias formas de reemplazar las headers y demas metodos pero no logro ocultarla ni siquiera usando soft externos como hide ip platinium y otros de ese tipo.
Aqui les dejo parte del codigo que estoy usando
Código:
WS.SendData "HELO " & TxDesde.Text & vbCrLf
EsperarPor "250", msgret, "220"
If Cancelar Then
GoTo Fin
End If
TxLog.Text = TxLog.Text + vbNewLine
TxLog.Text = TxLog.Text & "Enviando mail #" & i
TxLog.SelStart = Len(TxLog.Text)
WS.SendData "MAIL FROM: <" & TxDesde.Text & ">" & vbCrLf
EsperarPor "250", msgret, "220"
If Cancelar Then
GoTo Fin
End If
Destinatario = "RCPT TO: <" & TxDestino.Text & ">" & vbCrLf
WS.SendData Destinatario
EsperarPor "250", msgret, "251"
If Cancelar Then
GoTo Fin
End If
WS.SendData "DATA" & vbCrLf
EsperarPor "354", msgret
If Cancelar Then
GoTo Fin
End If
TxLog.Text = TxLog.Text + vbNewLine
TxLog.Text = TxLog.Text & "conectando..."
TxLog.SelStart = Len(TxLog.Text)
WS.SendData "From: " & TxDesde.Text & vbCrLf ' El Subject (Titulo)
WS.SendData Asunto & vbCrLf ' El Subject (Titulo)
WS.SendData "To: " & TxDestino.Text & vbCrLf ' El Subject (Titulo)
WS.SendData "cc: " & TxDestino.Text & vbCrLf ' El Subject (Titulo)
WS.SendData texto & vbCrLf
Espero alguien me pueda ayudar, desde ya muchas gracias