(Resolvido) Ajuda Em Meu Código Access

[Leo Lobo]

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

GOSTARIA QUE NA PARTE k.to = "itaipu@adfashion.com.br" 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 = "itaipu@goggle.com.br" ( A MUDANÇA ACONTECERIA AQUI )

k.Sender = "Teste"

k.From = "marcelo@veloxmail.com.br"

'Em caso de autenticação

k.User = "marcelo@veloxmail.com.br"

k.Password = "qinjjeer3gez"

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

k.Subject = "Feliz Aniversário"

k.Body = "Minha vida"

MsgBox k.Send()

[MrMALJ]

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

[Leo Lobo]

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 )

Editado Outubro 4, 2007 por Leo Lobo

[MrMALJ]

Acredito que há um meio sim, mais infelizmente eu não conheço. Posso dar este tópico como resilvido?

[Leo Lobo]

Sim grato !!