pemurray
asked on
How to prevent Outlook from prompting user to allow Powerbuilder to send an email
Hi all,
Is there a way to code Powerbuilder to prevent Outlook from popping up that annoying prompt that makes you wait 5 seconds before you can send the email? I opened a question on how to talk directly to exchange server but I did not get a reply so I am thinking that cannot be done.
Thanks for your help! Paul
Here is my code:
mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mAttach
mMsg.Recipient[1].name = 'paulericmurray@hotmail.co m'
mMsg.Recipient[1].Recipien tType = mailTo!
mMsg.Recipient[2].name = 'pemurray@groundtravel.com '
mMsg.Recipient[2].Recipien tType = mailCC!
mAttach.Filename = 'Apollo.doc'
mAttach.Pathname = 'T:\Apollo.doc'
mAttach.FileType = mailAttach!
//mAttach.Position = 1
mMsg.Subject = 'Test Message'
mMsg.NoteText = 'This is the body of mail ~nAuto Generated E-mail by the system'
// Create a mail session
mSes = CREATE mailSession
// Log on to the session
//mRet = mSes.mailLogon(mailNewSess ion!)
mRet = mSes.mailLogon()
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Logon failed.')
RETURN
END IF
mMsg.AttachmentFile[1] = mAttach
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Attachment failed.')
RETURN
END IF
mRet = mSes.mailAddress(mMsg)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Addressing failed.')
RETURN
END IF
// Send the mail
mRet = mSes.mailSend(mMsg)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Sending mail failed.')
MessageBox("Mail", String(mRet))
string mailreturnstring
mailreturnstring = MailErrorToString(mRet)
MessageBox("Email Result", "Email ReturnCode = " + mailreturnstring)
RETURN
END IF
mSes.mailLogoff()
DESTROY mSes
Is there a way to code Powerbuilder to prevent Outlook from popping up that annoying prompt that makes you wait 5 seconds before you can send the email? I opened a question on how to talk directly to exchange server but I did not get a reply so I am thinking that cannot be done.
Thanks for your help! Paul
Here is my code:
mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mAttach
mMsg.Recipient[1].name = 'paulericmurray@hotmail.co
mMsg.Recipient[1].Recipien
mMsg.Recipient[2].name = 'pemurray@groundtravel.com
mMsg.Recipient[2].Recipien
mAttach.Filename = 'Apollo.doc'
mAttach.Pathname = 'T:\Apollo.doc'
mAttach.FileType = mailAttach!
//mAttach.Position = 1
mMsg.Subject = 'Test Message'
mMsg.NoteText = 'This is the body of mail ~nAuto Generated E-mail by the system'
// Create a mail session
mSes = CREATE mailSession
// Log on to the session
//mRet = mSes.mailLogon(mailNewSess
mRet = mSes.mailLogon()
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Logon failed.')
RETURN
END IF
mMsg.AttachmentFile[1] = mAttach
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Attachment failed.')
RETURN
END IF
mRet = mSes.mailAddress(mMsg)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Addressing failed.')
RETURN
END IF
// Send the mail
mRet = mSes.mailSend(mMsg)
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Sending mail failed.')
MessageBox("Mail", String(mRet))
string mailreturnstring
mailreturnstring = MailErrorToString(mRet)
MessageBox("Email Result", "Email ReturnCode = " + mailreturnstring)
RETURN
END IF
mSes.mailLogoff()
DESTROY mSes
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.