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
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.
#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 userThat 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
Gale FORd wrote: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
Regards,
Michel D.
Genk (Belgium)
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773
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 NilWilly,
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 wrote:Rene, where i down funcky? this is free? thanks