¿Cómo enviar y recibir correos electrónicos usando VB?
Opción explícita
Private Const mc_strRand As String = " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_"
Privatem_strEncodedFiles As String
M_SendLen privado siempre
M_State privado como SMTP_State
Enum privado SMTP_State 'secuencia de comandos SMTP
MAIL_CONNECT
MAIL_HELO
MAIL_FROM
MAIL_RCPTTO
MAIL_DATA
MAIL_DOT
MAIL_QUIT
MAIL_txtNombreDeUsuario
MAIL_PASS
MAIL_LOGIN
Fin de enumeración
Sub privado Form_Load()
Inisj
Fin de sub
Private Sub cmdAddAdjunct_Click()
Con dlgFile
.ShowOpen
p> Si Len(.FileName) gt;
lstAttachments.AddItem .FileName
Finalizar si
Terminar con
Fin Sub
Sub privado cmdRemoveAdjunct_Click()
En caso de error, reanudar siguiente
lstAttachments.RemoveItem lstAttachments.ListIndex
End Sub
Private Sub cmdExit_Click()
Descargar Yo
End Sub
Private Sub CmdSend_Click()
Atenuar strserver como cadena
Atenuar lngColonPos mientras
Atenuar lngPort mientras
tcpMailServer.Close
tcpMailServer.LocalPort = 0
strserver = txtSMTPServerName
lngColonPos = InStr(strserver, ": ")
Si lngColonPos = 0 entonces
tcpMailServer.
Conecte strserver, 25
Else
'Puerto especial del servidor SMTP
lngPort = CLng(Right$(strserver, Len(strserver) - lngColonPos))
strserver = Izquierda$(strserver, lngColonPos - 1)
tcpMailServer. Conecte strserver, lngPort
End If
m_State = MAIL_CONNECT
StatusTxt = "Conectando con el servidor"
End Sub
SubcmdRemoveHtmlFile_Click() privado
txtHtml = vbNullString
End Sub
Sub cmdAddHtmlFile_Click() privado
Con dlgFile
.ShowOpen
Si Len(.FileName) gt 0 Entonces
txtHtml = .FileName
Fin si
Terminar con
End Sub
Sub privado tcpMailServer_DataArrival(ByVal bytesTotal As Long)
Dim strServerResponse As String 'Carácter de respuesta del servidor
Dim strResponseCode As String 'Código de respuesta
Dim intUniquey As Integer 'Elemento único
Dim strMixed As String