FiveTech Software tech support forums

Posted: **Wed Oct 04, 2006 1:09 pm**

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

Ari

Posted: **Thu Oct 05, 2006 12:28 am**

Amiguinho

If Incredimail use MAPI you can try this:

   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

Posted: **Mon Nov 06, 2006 11:50 am**

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

Ari

Posted: **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

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.

Posted: **Mon Nov 20, 2006 10:23 am**

Obrigado pela resposta: ele é gratuito ?

pode ser usado livremente ?

Ari

Posted: **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 ?