Thanks Cetin -
I will copy through and step through it.
Need to convince the powers at be, to pay for the upgrade to VFP7. I think it's around $1200 USD.
Got a client, who needs to send out email using aol . Our email object requires an smtp server name with supporting email address (originally got from WestWind years ago see below). How would we get around aol as I don't believe they use server name.
I would love to replace this with something that has a whole lot more functionality, like retrieving, send multiple attachments, etc., ideally work with existing mail servers like Outlook or something.
Problem, I am so unschooled in this area and need to be able to back my statements up before getting a go ahead. ANy ideas?
I realy look forward to meeting you one day, to personally say thanks for the help in the past.
Larry
LPARAMETERS lcMailServer, lcSenderName, lcSenderEmail, ;
lcRecipient, lcCCList, lcSubject, lcMessage, ;
lcAttachment, lcBCCList,lcContentType
lcMailserver=IIF(type("lcMailserver")="C",lcMailserver,TRIM(THIS.cMailServer))
lcSendername=IIF(type("lcSendername")="C",lcSendername,TRIM(THIS.cSenderName))
lcSenderEmail=IIF(type("lcSenderEmail")="C",lcSenderEmail,THIS.cSenderEmail)
lcRecipient=IIF(type("lcRecipient")="C",ALLTRIM(lcRecipient),THIS.cRecipient)
lcCCList=IIF(type("lcCCList")="C",lcCCList,THIS.cCCList)
lcBCCList=IIF(type("lcBCCList")="C",lcBCCList,THIS.cBCCList)
lcSubject=IIF(type("lcSubject")="C",lcSubject,THIS.cSubject)
lcMessage=IIF(type("lcMessage")="C",lcMessage,THIS.cMessage)
lcAttachment=IIF(type("lcAttachment")="C",lcAttachment,THIS.cAttachment)
lcContentType=IIF(type("lcContentType")="C",lcContentType,THIS.cContentType)
lcError=SPACE(513)
llResult=IIF(SendMail(lcSenderEmail, lcSenderName,;
lcRecipient, lcCCList,lcBCCList,;
lcSubject, lcMessage, lcAttachment,;
lcMailServer,@lcError,lcContentType)=1,.T.,.F.)
IF !llResult
THIS.cErrorMsg = TRIM(CHRTRANC(lcError,CHR(0),""))
ELSE
THIS.cErrorMsg = ""
ENDIF
RETURN llResult
************************************************************************
* wwIPStuff :: SendMail
*********************************
*** Function: Sends SMTP mail. Call waits for completion and returns
*** result code
*** Assume: Message Text can't be more than 64k.
*** Pass: tcMailServer - IP Address or Domain Name
*** tcSenderName - Sender Display Name (Rick Strahl)
*** tcSenderMailAddress Sender's full email address (
rstrahl@west-wind.com)
*** tcRecipientList - Recipients separated by commas (
ben@test.com,
jim@test.com)
*** tcCCList - List of CCs separated by commas
*** tcSubject - Subject Header
*** tcMessage - Message Body
*** tcAttachement - File Attachement (1 only)
*** Return: .T. or .F.
************************************************************************