FiveTech Software tech support forums

by **Ari** » Wed Oct 04, 2006 1:09 pm

Alguem já consegui enviar email com IncrediMail e com anexo ?

Ari

by **Rochinha** » Thu Oct 05, 2006 12:28 am

Amiguinho

If Incredimail use MAPI you can try this:

Code: Select all Expand view: local oMail DEFINE MAIL oMail ; SUBJECT "FiveWin Mail-control power" ; FILES "c:\test.doc", "test.doc"; TEXT "This is real xBase power at your fingertips!" ; TO "ALinares", "FAX: 05909294" ACTIVATE MAIL oMail

by **Ari** » Mon Nov 06, 2006 11:50 am

A versão atual do Incredimail, não anexa o arquivo.

Ari

by **Rochinha** » Mon Nov 20, 2006 9:05 am

Ari

Voce poderá enviar email diretamente de seu aplicativo com autenticação usando o Persits mailSender sem precisar enviar para IncrediMail, Outlook, etc.

Veja:

Code: Select all Expand view: Function EmailSender() LOCAL Mail, lHtml := .f. Mail := TOleAuto():New("Persits.MailSender.4") Mail:Host := "smtp.itelefonica.com.br" Mail:Port := 25 // Destinatario e Anexo Mail:AddAddress( "softclever@itelefonica.com.br" ) Mail:AddAttachment( "forum.txt" ) // Seus Dados Mail:From := "irochinha@itelefonica.com.br" Mail:FromName := "Rochinha" // Dados para Autenticação Mail:UserName := "SeuUserName" Mail:PassWord := "SuaSenha" // Assunto e corpo do texto Mail:Subject := "somente um teste" if lHtml = .f. Mail:Body := "eu estou enviando um email para mim mesmo" else Mail:IsHtml := .t. Mail:Body := "<html><body>Texto em HTML</body></html>" endif Mail:Send() Mail:End() return .t.

Faça o download de www.aspemail.com e instale e comece a usar.

by **Ari** » Mon Nov 20, 2006 10:23 am

Obrigado pela resposta: ele é gratuito ?

pode ser usado livremente ?

Ari

by **Rochinha** » Tue Nov 21, 2006 3:42 pm

Amiguinho

É sim mas é voltado para ambiente ASP em internet e eu adaptei para usa-lo no desktop.

Coisiquinha simples.

FiveTech Software tech support forums

TOle com IncrediMail ?

TOle com IncrediMail ?

Who is online