Alguem já consegui enviar email com IncrediMail e com anexo ?
Ari
TOle com IncrediMail ?
Amiguinho
If Incredimail use MAPI you can try this:
If Incredimail use MAPI you can try this:
Code: Select all
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
)Ari
Voce poderá enviar email diretamente de seu aplicativo com autenticação usando o Persits mailSender sem precisar enviar para IncrediMail, Outlook, etc.
Veja:
Faça o download de www.aspemail.com e instale e comece a usar.
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.