Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Automação do Outlook Express
Message
From
13/08/2004 08:49:49
 
 
To
12/08/2004 09:27:28
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00932629
Message ID:
00933094
Views:
29
Oi Richard,
>
>É que eu queria fazer uma coisa bem simples.
>O código que eu estou usando (e funciona bem, exceto pelo fato do Outlook não gostar dele) é o seguinte:
>
>
>Close All
>
>Use C:\SigMail\SigCli In 0
>
>Use C:\SigMail\SigMsg In 0
>Go Top In SigMsg
>lcSub = SigMsg.Assuntos
>lcMsg = SigMsg.Cabecalho + SigMsg.Mensagem + SigMsg.Rodape
>
>oOutLook = Createobject('Outlook.Application')
>
>Select SigCli
>Scan
>	lcEnd = ['] + Alltrim(SigCli.eMails) + [']
>
>	oEmail = oOutLook.CreateItem(0)
>	oEmail.Recipients.Add(&lcEnd.)
>	oEmail.Subject  = lcSub
>	oEmail.HtmlBody = lcMsg
>	oEmail.Send
>EndScan
>
>Close All
>
Lá em: http://fox.wikis.com/wc.dll?Wiki~AutomatedEmail existem umas "trocentas" opções de mandar e-mail.. Via Outlook você esbarrará sempre na necessidade de interferência "humana" em cada e-mail enviado.. O negócio ficaria meio sem propósitos..

Vá até o link acima e veja a opção via SMTP.. É bem simples de implementar (quase tão simples que o seu código acima)

Já esta tudo prontinho lá..

Claudio
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Previous
Reply
Map
View

Click here to load this message in the networking platform