Sending emails from within FiveWin.

[Willy]

I have to make a list with email addresses and a text to send.

The program has to send it automatically without further action of the user.

(It is not for sending spam of course)

Is this possible from within FiveWin.

I saw there is pop3 example in the samples map.

Is this only an early test with few possibilities or is it possible to send whole mailing without problems.

Thanks,

Willy

[TimStone]

YOu can do a search for a recent thread on this subject. There are options and its probably fair to say that there is inconsistancy.

Your OS will make a difference. If you are using Vista, you may encounter issues with some formats while others seem to work fine.

Yes, it can be done, but you will have to try some of the methods proposed on this forum. Do a search on EMAIL and you will find the other threads with great detail.

[yury]

hi Willy,

if I understand what you looking for, try this example:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

local aList:={'mai1_1@yahoo.com',;
              'mail_2@hotmail.com',;
              'mail_2@aol.com' }

local aFile:={'c:\doc_1.doc',;
              'c:\doc_2.xls',;                             
              'c:\doc_3.ppt'}

local oMail, cMail:='', cFile:=''

for i = 1 to len(aList)
   
   cMail = aList[ i ]   
   
   cFile = aFile[ i ]
   
   if .not.file(cFile)  // if file don't exist, don't attach
      cFile=''           
   endif
   
   oMail = TMail():New('My Subject'  ,;   // subject
                       'My Body Text',;   // body text           
                       nil           ,;   // msg type
                       nil           ,;   // conversation ID
                       Date()        ,;   // Date                   
                       Time()        ,;   // Time
                       .T.           ,;   // Receipt
                       .T.           ,;   // From User
                       {}            ,;   // Origins               
                       {cMail}       ,;   // Destinatary
                       {cFile}        )   // Files Attach
   
   oMail:Activate()   
   
   oMail:End()

next

return


// set From User = .F. for automatic send, without further action of the user


regards

[Gale FORd]

That works good when it is set with From User = .T.
If you use Outlook and try From User = .F. then you get security warnings that stop the email processing.

It is very frustrating to get Fivewin to email by itself under all conditions. That is why I ended up using an external SMTP email program.

Good luck,
Gale

[NK]

That works good when it is set with From User = .T.
If you use Outlook and try From User = .F. then you get security warnings that stop the email processing.

It is very frustrating to get Fivewin to email by itself under all conditions. That is why I ended up using an external SMTP email program.

Good luck,
Gale

here an little tool for your outlook-problem.

http://www.contextmagic.com/express-cli ... lopers.htm

regards, Norbert

[driessen]

Norbert,

I experienced that ClickYes is generating often problems. It is also not that easy to install it.

I found a much easier tool at http://www.mapilab.com/outlook/security/.

It is free for commercial and non-commercial use.

Just install it and launch Outlook and everything is ready.

Good luck

[R.F.]

I do use Funcky por emailing (and for a thousands of things more):

Code: Select all  Expand view  RUN

Function SendMail()
   LOCAL cText := Memoread("w:\cgi-win\cdfw\message.txt")
   LOCAL oMail := TOLEAUTO():NEW("funckysmtp")
   LOCAL aFail := {}

   WITH OBJECT oMail
      :Server ="smtp.server.com"
      :FromName := "google user information"
      :FromAddress := "info@google.com"
      :Subject := "Comming soon training in your locality"
      :Message := cText
   END

   fw->(DBGOTOP())
   DO WHILE ! fw->(EOF())
      WITH OBJECT oMail
         :ToName := ALLTRIM(fw->nombre)
         :ToAddress := ALLTRIM(fw->mail)
         IF ! :Send()
            AADD(aFail,{fw->nombre,fw->mail})
         ENDIF
      END
      fw->(DBSKIP())
      oDbfBrowse1:Refresh()
   ENDDO
   MsgInfo ("Finished")
RETURN Nil

[jacquetph]

Willy,
Ik heb gezien dat je werkt met Sql en Fivewin .Ik will graag inlichtigen daarover .
Can je uw email geven .
Mijn email is ph.jacquet@skynet.be
Thanks .

[Nop]

Rene, where i down funcky? this is free? thanks

[R.F.]

Rene, where i down funcky? this is free? thanks

www.funcky.com

you can downlad a demo with limited functionality, the full product is a little pricy but worth the price