Alguem já consegui enviar email com IncrediMail e com anexo ?
Ari
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 oMailA versão atual do Incredimail, não anexa o arquivo.
Ari
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.Obrigado pela resposta: ele é gratuito ?
pode ser usado livremente ?
Ari
Amiguinho
É sim mas é voltado para ambiente ASP em internet e eu adaptei para usa-lo no desktop.
Coisiquinha simples.