NAO ACHO SMTPSVQ LIBRARY PARA ENVIAR EMAIL PELO VB

USUARIO.EXCLUIDOS 19/09/2006 16:25:36
#172456
Olá estou tentando enviar e-mails através do vb, em umas das consultas que eu fiz no site achei um arquivo que usa o aspmail, ja baixei e instalei na máquina como pedido, porém quando fui inserir a biblioteca SMTPSVQ LIBRARY não a econtrei, alguém pode me ajudar? Eu fui no project...referenses,componentes....e nada!!!

Obrigada
Bruna
USUARIO.EXCLUIDOS 19/09/2006 17:55:53
#172482
Olá quando fui tentar inserir a referencia só apareceu a opção Microsoft CDO for Exchange 2000 library......é a mesma coisa ou não ? Como faço para achar o pafa windows?

Bruna
USUARIO.EXCLUIDOS 19/09/2006 17:58:09
#172483
Bruna vc pode baixar esse componente e registra-lo no windows caso não esteje parecendo.

Veja alguns links abaixo, onde vc poderá tentar:


http://superdownloads.uol.com.br/download/i14084.html

http://baixaki.ig.com.br/site/detail6662.htm

http://www.aspemail.com/download.html

http://www.download.com/Aspose-Email/3000-...tml?tag=lst-0-3
USUARIO.EXCLUIDOS 19/09/2006 18:04:29
#172484
estou anexando ao tópico a dll.

Ai vc coloca na system32, vai nas referências, clica em Browse e procura o arquivo la na system32.
USUARIO.EXCLUIDOS 19/09/2006 18:23:35
#172487
Bruna,

o básico é isso:

Public Mail As New CDO.Message
Public Conf As New CDO.Configuration

'Aqui Realizo a configuração para iniciar o envio do Email
Conf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ServerSMTP
Conf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

If Aut Then
    Conf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = UserMail
    Conf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassMail
    Conf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Else
    Conf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
End If

Conf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Conf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
Conf.Fields.Update


'Aqui seto as propriedades do email propriamente dito
Set Mail.Configuration = Conf
Mail.From = From
Mail.To = MailTo
Mail.Subject = Subject

If FileExists(Anexo) Then
    Mail.AddAttachment Anexo
End If

Mail.TextBody = TextMail
Mail.HTMLBody = TextMail
Mail.Send
Tópico encerrado , respostas não são mais permitidas
Voltar