VB6 - ENVIAR E-MAIL SEM OUTLOOK. DUVIDA.

OFERRARI 14/04/2010 18:43:01
#339390

Alguém pode ajudar ??

PASCOAL 14/04/2010 18:55:48
#339392 Resposta escolhida

VE SE AJUDA :

On Error GoTo erro_envia
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

With Camp

.Item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = [Ô]mail.ABOBORA.com.br[Ô] [ô][Ô]smtp.mail.yahoo.com.br[Ô] ‘informe o servidor smtp aqui
.Item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]eu@abobora.com.br[Ô] [ô] informe o usuario de autenticação
.Item(cdoSendPassword) = [Ô]mandioca[Ô] [ô]Informe a Senha aqui
.Update
End With

With Msg

Set .Configuration = Cof

.To = MyEmail_Cli [ô] destinatario1@email.com.br;destinatario2@email.com.br ‘ destinatarios separados por ;
.From = [Ô]mecanica@bol.com.br[Ô] [ô][Ô]contatos@flowsys.com.br[Ô] [ô]remetente@email.com.br ‘ remetente[Ô]
.Subject = [Ô]Feliz Aniversário![Ô]
.HTMLBody = strHTML
[ô].CC = [ô]Informe o ou os destinatários da cópia
[ô].BCC = [Ô]contatos@flowsys.com.br[Ô] [ô]Informe o ou os destinatários da cópia oculta
[ô].AddAttachment “c: este1.txt;c: este2.txt” [ô] informe o ou os anexos

.Send

End With

AQUI FUNCIONA PERFEITO

PRECISA INCLUIR NO PROJETO A DLL MICROSOFT CDO FOR WINDOWS 2000 LIBRARY

QQ COISA ME AVISE

OFERRARI 14/04/2010 19:03:39
#339394

PASCAL. O servidor pode ser do Hotmail ??

Outra dúvida. Se eu tivesse três TextBox em um form.

O primeiro serviria para colocar o Destino do E-mail ( Pra quem eu iria mandar )
O segundo serviria para colocar o Assunto do E-mail.
E o terceiro serviria para escrever o E-mail.

Como ficaria o Código se eu fosse pegar o Código digitado nas TextBox. Para enviar os E-mails ??

Aguardo.

PASCOAL 14/04/2010 19:47:32
#339398

o servidor precisa ter login e senha para autenticação.

myemailenviar.text [ô]O primeiro serviria para colocar o Destino do E-mail ( Pra quem eu iria mandar )
myassunto.text [ô]O segundo serviria para colocar o Assunto do E-mail.
mytextoemail.text [ô][ô] E o terceiro serviria para escrever o E-mail.


With Msg

Set .Configuration = Cof

.To = myemailenviar.text
.From = [Ô]SEUEMAIL@bol.com.br[Ô]
.Subject = myassunto.text
.HTMLBody = mytextoemail.text
[ô].CC = [ô]Informe o ou os destinatários da cópia
[ô].BCC = [Ô]contatos@flowsys.com.br[Ô] [ô]Informe o ou os destinatários da cópia oculta
[ô].AddAttachment “c: este1.txt;c: este2.txt” [ô] informe o ou os anexos

.Send

End With

vê se é isso?

OFERRARI 14/04/2010 20:23:14
#339400

Desde já Obrigadu.

Deu certo. Agora sim o código fluiu.
Abraços.
Vou finalizar o tópico.