Correo desde Visual Basic????

CeLaYa · 10 Octubre 2006, 15:35 PM

por fin he encontrado la forma de enviar el correo, el codigo lo saque de un ejemplo de esta pag http://www.controltotal.org/VB/tipos/Pinternet.htm

Private Sub btnSend_Click()
Winsock1.RemoteHost = txHost
Winsock1.RemotePort = 25
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
' this is the main processing code for
' sending an email message
' the iState variable maintains the current
' state of the protocol exchange so that we
' know what to send next
Dim strData As String
Static iState As Integer
Dim iMsgNum As Integer
Dim szMsg As String
Dim I As Integer

Winsock1.GetData strData, vbString

iMsgNum = Val(Left(strData, InStr(strData, " ")))

Select Case iMsgNum
Case 220 ' initial message
Winsock1.SendData "HELO " & txHost & vbCrLf
txStatus = "Mail Server is ready..."
iState = 1
Case 221
If iState = 999 Then
txStatus = "Disconnected from mail server after error..."
Else
txStatus = "Disconnected from mail server..."
End If
iState = 0

Case 250
Select Case iState
Case 1:
Winsock1.SendData "MAIL FROM:<" & txFrom & ">" & vbCrLf
Debug.Print "MAIL FROM:<" & txFrom & ">" & vbCrLf
txStatus = "Sending FROM command..."
iState = 2

Case 2:
Winsock1.SendData "RCPT TO:<" & txTo & ">" & vbCrLf
Debug.Print "RCPT TO:<" & txTo & ">" & vbCrLf
txStatus = "Sending RCPT command..."
iState = 3

Case 3:
Winsock1.SendData "DATA" & vbCrLf
Debug.Print "DATA" & vbCrLf
txStatus = "Sending DATA command..."
iState = 4

Case 5:
Winsock1.SendData "QUIT" & vbCrLf
Debug.Print "QUIT" & vbCrLf
txStatus = "Sending Quit command to disconnecting from mail server..."
iState = 6
Winsock1.Close
End Select

Case 354
iState = 5
szMsg = txMessage
txStatus = "Sending mail message data..."
Winsock1.SendData "Subject: " & txSubject & vbCrLf
While szMsg <> ""
Winsock1.SendData Left(szMsg, InStr(szMsg, Chr(10)))
Debug.Print "Sending:" & Left(szMsg, InStr(szMsg, Chr(10)))
szMsg = Mid(szMsg, InStr(szMsg, Chr(10)) + 1)
Wend
Winsock1.SendData "." & vbCrLf

Case 500 To 599
Winsock1.SendData "QUIT" & vbCrLf
txStatus = "Error sending mail..."
Debug.Print "Error sending mail... quitting..."
iState = 999

End Select

End Sub

soplo · 10 Octubre 2006, 21:33 PM

Pues ahora te pongo un reto:

busca la manera de encapsular ese código de forma que consigas un control que puedas insertar en un formulario y que tenga las propiedades 'para', 'de' y 'asunto'

jajaja

CeLaYa · 10 Octubre 2006, 21:45 PM

trato hecho

CeLaYa · 10 Octubre 2006, 23:24 PM

ya esta listo el OCX que hace la funcion de enviar correo, pero mi duda ahora es: ¿¿¿¿Como le hago para ponerlo aqui y lo pueadan descargar??? , disculpen mi ignorancia

WarGhost · 10 Octubre 2006, 23:52 PM

una duda y que servidor usas porque vamos casi ningun funciona.

CeLaYa · 11 Octubre 2006, 17:17 PM

bueno ya lo puse aqui, es un ocx muy sencillo, voy a tratar de ir agregando cosas, si a alguien se le ocurre algo pues vemos como lo modificamos

http://www.geocities.com/cero780814/EnviarCorreo.zip

soplo · 11 Octubre 2006, 21:23 PM

Ale!
A manuales, tutoriales y ejemplos

Gracias Celaya

CeLaYa · 11 Octubre 2006, 22:52 PM

hay les va el código....
agrege un cotrol de usuario y en el puse un winsock(wsMail), 5 textbox(txtServidor, txtDe, txtPara, txtAsunto y txtMensaje) y un xpcmdbutton(cmdEnviar)