OSSMTP ALGUEM JA USOU?
Olá pessoal, fiz um programa e nele tem envio de email via OSSMTP.
Estou com problema para configurar, por exemplo, no BOL eles pedem as seguintes configurações:
Servidor de SMTP: smtps.bol.com.br
Porta de SMTP: 587
Requer conexão segura: sim
Meu servidor requer autenticação: sim
Servidor de SMTP.......................................OK Consegui configurar
Porta de SMTP............................................OK Consegui configurar
Requer conexão segura.............................Não sei qual probriedade do OSSMTP usar
Meu servidor requer autenticação.............Não sei qual probriedade do OSSMTP usar
Veja abaxo como estou fazendo:
Set oSMTP = New OSSMTP.SMTPSession
With oSMTP
.UserName = [Ô]usuario_mail[Ô]
.Password = [Ô]senha[Ô]
.POPServer = pop3.bol.com.br
.AuthenticationType = AuthLogin
.Server = smtps.bol.com.br
If .Server = [Ô]smtps.bol.com.br[Ô] Then
.Port = 587
End If
.MailFrom = [Ô]nono@bol.com.br[Ô]
.SendTo = [Ô]nono@terra.com.br[Ô]
.MessageSubject = [Ô]ENVIANDO EMAIL COM TESTE[Ô]
.MessageText = [Ô]Teste de email enviado[Ô]
.SendEmail
Se alguém puder agradecer, agadeço desde já.
End With
Estou com problema para configurar, por exemplo, no BOL eles pedem as seguintes configurações:
Servidor de SMTP: smtps.bol.com.br
Porta de SMTP: 587
Requer conexão segura: sim
Meu servidor requer autenticação: sim
Servidor de SMTP.......................................OK Consegui configurar
Porta de SMTP............................................OK Consegui configurar
Requer conexão segura.............................Não sei qual probriedade do OSSMTP usar
Meu servidor requer autenticação.............Não sei qual probriedade do OSSMTP usar
Veja abaxo como estou fazendo:
Set oSMTP = New OSSMTP.SMTPSession
With oSMTP
.UserName = [Ô]usuario_mail[Ô]
.Password = [Ô]senha[Ô]
.POPServer = pop3.bol.com.br
.AuthenticationType = AuthLogin
.Server = smtps.bol.com.br
If .Server = [Ô]smtps.bol.com.br[Ô] Then
.Port = 587
End If
.MailFrom = [Ô]nono@bol.com.br[Ô]
.SendTo = [Ô]nono@terra.com.br[Ô]
.MessageSubject = [Ô]ENVIANDO EMAIL COM TESTE[Ô]
.MessageText = [Ô]Teste de email enviado[Ô]
.SendEmail
Se alguém puder agradecer, agadeço desde já.
End With
Pessoal acho que ninguém tem nenhuma dica...
Tópico encerrado , respostas não são mais permitidas