Jump to content
Fórum Script Brasil
  • 0

(Resolvido) Ajuda Em Meu Código Access


Leo Lobo
 Share

Question

SERÁ QUE ALGUÉM PODERIA ME AJUDAR NO CÓDIGO ABAIXO:

GOSTARIA QUE NA PARTE k.to = "[email protected]" AO INVÉS DE TER QUE DIGITAR O EMAIL DO NOSSO CLIENTE , O ACCESS BUSCASSE O EMAIL EM UMA TABELA QUE POSSUI VÁRIOS OUTROS CADASTRADOS.

COM ISSO AGILIZARIAMOS O PROCESSO DE ENVIO DE MALA DIRETA DOS ANIVERSARIANTES DO MES.

Set k = CreateObject("Py.SendMail")

k.SMTPServer = "smtp.velox.com.br"

k.Recipient = ""

k.To = "[email protected]" ( A MUDANÇA ACONTECERIA AQUI )

k.Sender = "Teste"

k.From = "[email protected]"

'Em caso de autenticação

k.User = "[email protected]"

k.Password = "qinjjeer3gez"

'-----------------------

k.Subject = "Feliz Aniversário"

k.Body = "Minha vida"

MsgBox k.Send()

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Bom tenho certeza que você tem uma tabela/consulta com esses dados, então basta substituir os fixos pelos campos (no exemplo a seguir ele buscará o campo email do(a) formulário em uso:

k.To = me.seCampoEmail

Simples, rápido e sem complicação, como diria meu professor de probabilidade ridiculamente fácil....rsrsrs

Link to comment
Share on other sites

  • 0
Bom tenho certeza que você tem uma tabela/consulta com esses dados, então basta substituir os fixos pelos campos (no exemplo a seguir ele buscará o campo email do(a) formulário em uso:

k.To = me.seCampoEmail

Simples, rápido e sem complicação, como diria meu professor de probabilidade ridiculamente fácil....rsrsrs

Grato pela força. Simplesmente Mr Master MAJL !

Mais perguntas : Como faço para colocar os endereços no campo do Outlook Cco ( Cópia Oculta )

Edited by Leo Lobo
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.4k
×
×
  • Create New...