EMAIL COM HTML

Private Sub EnvioDeEmail()
On Error GoTo Ver
Dim sMensagem  As String
Dim Msg As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp

Set Msg = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields

sMensagem = [Ô][Ô]
sMensagem = sMensagem & [Ô]<table>[Ô]
sMensagem = sMensagem & [Ô]    <tr>[Ô]
sMensagem = sMensagem & [Ô]        <td>[Ô]
sMensagem = sMensagem & [Ô]            <img src=[ô]http://www.google.com.br/images/srpr/logo3w.png[ô]>[Ô]
sMensagem = sMensagem & [Ô]        </td>[Ô]
sMensagem = sMensagem & [Ô]        <td valign=[ô]middle[ô]>[Ô]
sMensagem = sMensagem & [Ô]            Foi efetuado um cadastro no sistema. Se você não efetuou nenhum cadastro desconsidere esta mensagem...  [Ô]
sMensagem = sMensagem & [Ô]        </td>[Ô]
sMensagem = sMensagem & [Ô]    </tr>[Ô]
sMensagem = sMensagem & [Ô]</table>[Ô]

With Camp

  .Item(cdoSMTPServerPort) = txtPorta.Text [ô]Porta de conexão do seu servidor
  .Item(cdoSendUsingMethod) = cdoSendUsingPort  [ô] ou 2
  .Item(cdoSMTPServer) = CbMail.Text [ô]Link SMTP do servidor tipo (smtp.live.com)
  .Item(cdoSMTPConnectionTimeout) = 15 [ô] Tempo de conexão
  .Item(cdoSMTPAuthenticate) = cdoBasic [ô] ou 1
  .Item(cdoSMTPUseSSL) = True
  .Item(cdoSendUserName) = vUserName [ô]Email que ira disparar o envio
  .Item(cdoSendPassword) = vPasswrd [ô]Senha do Email
  .Update
  
End With

With Msg
  Set .Configuration = Cof
      .From = vUserName [ô]Email que ira disparar o envio
      .Sender = vUserName [ô]Email que ira disparar o envio
      .To = CbEnd.Text [ô]Email que ira receber
      
      .Subject = txtAss.Text [ô]Assunto
      .HTMLBody = sMensagem [ô]Mensagem
      .Send
End With

MsgBox [Ô]OK ![Ô]

Exit Sub

Ver:
MsgBox [Ô]Erro Número : [Ô] & Err.Number & vbNewLine _
      & [Ô]Descrição do erro : [Ô] & Err.Description
End Sub