eviar para o email e fazer o upload

[MOSCA 0]

alguem teria um tutorial: Pessoal é o seguinte to no sufoco preciso entregar um contato onde digita o nome email e assunto e coloca o anexo e envia para o email moscapaz@hotmail.com alguem me daria essa força ai.. me paçaria o tutorial... aguardo.. valeu galera o melhor forum que ja vi.... ate mais

[leo_davi 0]

usando o CDONTS você pode fazer o seguinte.

 

'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail

 

Segue o exemplo

 

Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "seu e-mail" ' e-mail de quem esta enviando a mensagem Mailer.To = para@email.com.br" ' e-mail de quem vai receber a mensagem 'Mailer.CC = "com copia" ' Com Cópia Mailer.BodyFormat = 0 ' parametro de formatação Mailer.MailFormat = 0'cdoMailFormatText ' parametro de formatação 'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail Mailer.Subject = assunto Mailer.Body = corpoMailer.Send Set Mailer = Nothing

[MOSCA 0]

usando o CDONTS você pode fazer o seguinte.

 

'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail

 

Segue o exemplo

 

Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "seu e-mail" ' e-mail de quem esta enviando a mensagem Mailer.To = para@email.com.br" ' e-mail de quem vai receber a mensagem 'Mailer.CC = "com copia" ' Com Cópia Mailer.BodyFormat = 0 ' parametro de formatação Mailer.MailFormat = 0'cdoMailFormatText ' parametro de formatação 'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail Mailer.Subject = assunto Mailer.Body = corpoMailer.Send Set Mailer = Nothing

so que o cliente que vai entrar em contato tem que ter o file para procurar a imagem no pc dele e anexar na mensagem e enviar tudo para o email especificado... é isso que preciso, essa forma que voce passou ai ele ja fica com o arq. anexado dessa forma nao da... a pessoa tem que localizar a imagem... Aguardo mas valeu....

 

 

so que o cliente que vai entrar em contato tem que ter o file para procurar a imagem no pc dele e anexar na mensagem e enviar tudo para o email especificado... é isso que preciso, essa forma que voce passou ai ele ja fica com o arq. anexado dessa forma nao da... a pessoa tem que localizar a imagem... Aguardo mas valeu....

 

 

 

usando o CDONTS você pode fazer o seguinte.

 

'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail

 

Segue o exemplo

 

Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "seu e-mail" ' e-mail de quem esta enviando a mensagem Mailer.To = para@email.com.br" ' e-mail de quem vai receber a mensagem 'Mailer.CC = "com copia" ' Com Cópia Mailer.BodyFormat = 0 ' parametro de formatação Mailer.MailFormat = 0'cdoMailFormatText ' parametro de formatação 'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail Mailer.Subject = assunto Mailer.Body = corpoMailer.Send Set Mailer = Nothing

so que o cliente que vai entrar em contato tem que ter o file para procurar a imagem no pc dele e anexar na mensagem e enviar tudo para o email especificado... é isso que preciso, essa forma que voce passou ai ele ja fica com o arq. anexado dessa forma nao da... a pessoa tem que localizar a imagem... Aguardo mas valeu....

 

 

so que o cliente que vai entrar em contato tem que ter o file para procurar a imagem no pc dele e anexar na mensagem e enviar tudo para o email especificado... é isso que preciso, essa forma que voce passou ai ele ja fica com o arq. anexado dessa forma nao da... a pessoa tem que localizar a imagem... Aguardo mas valeu....