VB envía correo electrónico

Sub SendMail (ByVal sSubject opcional como cadena, _

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

.