Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Automação do Outlook Express
Message
De
13/08/2004 08:49:49
 
 
À
12/08/2004 09:27:28
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00932629
Message ID:
00933094
Vues:
32
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform