VB envía correo electrónico
ByVal sBody opcional como cadena, _
ByVal sFileName opcional como cadena)
Dim jmail
Establecer jmail = CreateObject("jmail.Message")
jmail.Charset = "gb2312"
jmail.Priority = 1 'Estado del correo, 1-5 1. MailServerUserName = "c55c55" 'Cuenta de correo electrónico
jmail.MailServerPassWord = "XXXXX" 'Contraseña de correo electrónico
'jmail.FromName = "hu" 'Nombre del remitente
jmail.From = "" 'Dirección
jmail.From = "c55c55@163.com" 'Dirección de correo electrónico de envío
jmail.Subject = "La carta llegó " 'Asunto
jmail.AddRecipient "c44c44@163.com" 'Dirección del destinatario
jmail.Body = sBody ' Texto
jmail.AddAttachment ( "I:\ Remote Monitoring V1. 0\Client\wj.jpg") 'Adjunto
jmail.Send ("smtp.163..com")
Establecer jmail = Nada
Fin Sub
Nota: La dirección de correo electrónico del remitente debe solicitarse antes del 7 de noviembre y debe actualizarse antes de poder usarse. Lo mismo ocurre con 126. Las dos direcciones de correo electrónico anteriores son mías y no se pueden utilizar después del intercambio.
Enviar y recibir correos electrónicos es muy problemático. No digas que solo tienes 50 puntos. Incluso si obtienes 500 yuanes, es posible que nadie te lo diga. Supongo que no mucha gente lo sabe, y los que sí pueden. no te lo digo.
Actualmente solo puedo enviar correos electrónicos, pero no puedo recibir correos electrónicos con archivos adjuntos
.