[Resolvido] Função para enviar e-mail

[WRK_VLF 0]

Bom dia pessoal

 

Preciso criar algo no VB6 com que faça o seguinte

 

Ao finalizar um chamado em meu sistema, ele envia um email para o email cadastrado para o usuario do chamado.

 

O que está pegando é fazer o envio desse e-mail, já que o sistema é local.

Conseguir criar algo configurando o outlook, mas não fica muito legal.

 

Teria como criar algo no meu próprio sistema, que faça essa função?

 

Obrigado

[lfranca 0]

Deixa ver se eu te entendi bem, você tem um sistema e quando ele finalizar algo você quer que envie um email? so mente isso? se for isso adiciona uma função do tipo:

 

 

Chamada:

envia_email param. que você deseja passar

 

Sub:

Public Sub envia_email(param. que você queria passar como usuario ou alguma informação q tenha q ir no email q venha do sistema)

   Dim Recipient
   Dim CDO As CDO.Message
   Dim Cof As CDO.Configuration
   Dim Camp

   Set CDO = New CDO.Message
   Set Cof = New CDO.Configuration
   Set Camp = Cof.Fields
   Dim rssupplier As New adodb.Recordset
   Dim rsmail As New adodb.Recordset


   With Camp
     .Item(cdoSendUsingMethod) = 2   ' cdoSendUsingPort
     .Item(cdoSMTPServer) = "servidor de smtp"
     .Item(cdoSMTPConnectionTimeout) = 60 ' quick timeout
     .Item(cdoSMTPAuthenticate) = 1
     .Item(cdoSendUserName) = "login do email"
     .Item(cdoSendPassword) = "senha"
     .Update
   End With
   Recipient = "Texto do corpo do email"    


   With CDO
     Set .Configuration = Cof          
         .To = "email para onde vai enviar"
         .CC = "copia caso necessario"
         .From = "Nome de quem esta enviando"
         .Subject = "assunto"
         .HTMLBody = Recipient
         .Send
   End With
End Sub

[WRK_VLF 0]

Ok, tudo funcionou, valeu pessoal pode finalizar o tópico