Veja como enviar e-mails autenticados em Visual Basic usando o JMail.

set JM = CreateObject("JMail.Message") jm.MailServerUserName = "seulogin" jm.MailServerPassWord = "suasenha" jm.From = "seuemail@seuemail.com.br" jm.FromName = "seunome" jm.ContentType = "text/html" 'Tipo do conteúdo do corpo do e-mail jm.Subject = "Assunto deste e-mail" jm.body = "Teste" 'Corpo do e-mail      jm.AddRecipient "wilerson@seven.com.br" 'Entre com o e-mail de destino aqui. SeuSMTP="smtp.seudominio.com.br" 'Configure o smtp aqui. If Not jm.Send(SeuSMTP) Then         MsgBox "Erro ao postar mensagem!" & Chr$(13) & "Erro encontrado: " & jm.Log, vbCritical, "Aviso de Erro - Seven Internet" End If

Quebra-Linha

Colaborador..: Wilerson Pinheiro Camargos
Categoria(s).: Visual Basic;
Versão.......: 1.0
Data.........: 02/12/2003 12:41:04
Visualizado..: 8593 vezes
Fonte........: Equipe de Desenvolvimento - Seven Internet