ENVIAR E-MAIL

 Tópico anterior Próximo tópico Novo tópico

ENVIAR E-MAIL

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#490806 - 17/10/2019 12:33:21

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


   Boa tarde a todos

Estava testando este código que achei, e não tem jeito de fazer enviar,  parece ser simples, mas não consigo enviar...
registrei a dll regsvr32 smtpsvg.dll
Fiz vários testes com smtp e nada,
Alguém sabe o que pode ter de errado?

  
Private Sub cmdenviar_Click()
Dim sucesso As Boolean '
Dim mensagem As String
Dim mailer As SMTPsvg.mailer

Set mailer = CreateObject("SMTPsvg.Mailer") '- Conexão com a dll do servidor

mailer.RemoteHost = "mail.seuservidorsmtp.com.br" 'Local onde você colocará o smtp.

mailer.FromName = txtremetente '- Procura no form o nome colocado
mailer.FromAddress = txtemailremetente '- Procura no form o e-mail colocado
mailer.AddRecipient txtdestino, txtemaildestino '- O nome de quem está enviando e o E-mail
mailer.Subject = txtassunto '- Procura no form o assunto colocado

mailer.BodyText = txtTexto '- Procura no form o texto colocado

sucesso = mailer.SendMail

If sucesso Then
   mensagem = "O E-MAIL ENVIADO COM SUCESSO!"
Else
   mensagem = "O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"
End If

MsgBox mensagem, vbInformation, "Enviando emails usando ASPMAIL"

End Sub




#490810 - 17/10/2019 15:09:11

LVFIOROT
SERRA
Cadast. em:Março/2012


Última edição em 17/10/2019 15:15:42 por LVFIOROT

cade o usuario e senha da caixa postal?
e a porta (caso nao seja a padrão - 25)

acho que é o source https://github.com/ibauersachs/smtpsvg

a resposta

https://forum.scriptbrasil.com.br/topic/23961-dll-smtp/



#490816 - 18/10/2019 09:29:09

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
cade o usuario e senha da caixa postal?
e a porta (caso nao seja a padrão - 25)

acho que é o source https://github.com/ibauersachs/smtpsvg

a resposta

https://forum.scriptbrasil.com.br/topic/23961-dll-smtp/


Este fórum que vc colocou, no final do poster o cara diz, ...: Por favor alguém me ajude!....





#490836 - 18/10/2019 15:43:19

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Além do já citado usuário e senha, se você está rodando exatamente esse código, o valor "mail.seuservidorsmtp.com.br" deve conter, bem o SEU SERVIDOR SMTP.

_______________________________________________________________________
Virei Oráculo!
The end is nigh, be ready for the nukes!


#490891 - 22/10/2019 15:44:53

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
cade o usuario e senha da caixa postal?
e a porta (caso nao seja a padrão - 25)

acho que é o source https://github.com/ibauersachs/smtpsvg

a resposta

https://forum.scriptbrasil.com.br/topic/23961-dll-smtp/



     então, criei um formulário para cadastrar os dados
      rsLocal.AddNew
      rsLocal(0) = txtEmail
      rsLocal(1) = txtSenha
      rsLocal(2) = Porta
      rsLocal(3) = SMTP
      rsLocal.Update

  e coloquei para cadastrar

a porta e o smtp

Private Sub optOut_Click()
      '   Porta = 25
      '   Porta = 995
          Porta = 587
      '   SMTP = "smtp-mail.outlook.com"
          SMTP = "smtp.live.com"
      '   SMTP = "smtp-mail.outlook.com"

testei varias portas e vários smtp e não consigo
Porem assim mesmo ele não funciona
não tem jeito
    alguém tem um código deste de enviar e-mail para vender?



#490908 - 23/10/2019 09:30:05

LUIS2014
CURITIBA
Cadast. em:Agosto/2014


Use a CDO

  Dim MSG As CDO.Message
Dim CONFIG As CDO.Configuration

Set MSG = New CDO.Message
Set CONFIG = New CDO.Configuration

CONFIG.Fields.Item(cdoSendUsingMethod) = 2          'valor 2, para enviar a mensagem usando a rede.
CONFIG.Fields.Item(cdoSMTPServer) = TXT_smtp        'nome servidor SMTP.
CONFIG.Fields.Item(cdoSMTPServerPort) = TXT_porta   'porta servidor SMTP (usar como padrão: 25).
CONFIG.Fields.Item(cdoSMTPAuthenticate) = 1         'valor 1, precisa autenticar usuario
CONFIG.Fields.Item(cdoSMTPConnectionTimeout) = 30
CONFIG.Fields.Item(cdoSendUserName) = TXT_user      'precisa pegar o usuario do email que esta enviando"
CONFIG.Fields.Item(cdoSendPassword) = TXT_senha     'precisa pegar o password do usuario
CONFIG.Fields.Update

Set MSG.Configuration = CONFIG
MSG.From = TXT_de
MSG.To = TXT_Destino
MSG.CC = TXT_copia
MSG.Subject = TXT_assunto
MSG.TextBody = TXT_mensagem

MSG.Send




#490930 - 24/10/2019 09:23:03

MARIOANDRADE
SANTO ANTONIO DE JESUS
Cadast. em:Abril/2012


Luciano,
O código fonte desse sistema tem uma estrutura completa para envio de e-mails,
você já adquiriu, caso tenha perdido solicite novamente com a central de atendimento
contato[#]cursoexcelvba.com.br (troque o [#] por @)
Ou solicite no atendimento online.
Espero ter ajudado.

Cursos de Excel e VB6:
cursoexcelvba.com.br



#490935 - 24/10/2019 12:04:58

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


Citação:
:
Luciano,
O código fonte desse sistema tem uma estrutura completa para envio de e-mails,
você já adquiriu, caso tenha perdido solicite novamente com a central de atendimento
contato[#]cursoexcelvba.com.br (troque o [#] por @)
Ou solicite no atendimento online.
Espero ter ajudado.


         Sim, vou entrar em contato, obrigado!

     Agradeço a todos pela ajuda,
     tenho aprendido muito aqui, e o interessante que não só com os meus e sim com muitos outros tópicos!
     agradecendo em especial aoLUIS2014 pela presteza,
     e ao meu amigo MARIOANDRADE,
    
    Atenciosamente,







 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário