如何在PB8中發送郵件時彈出Outlook彈出消息

Question

我想在PowerBuilder 8中執行一些操作後發送郵件，但彈出Outlook彈出消息詢問是否允許Outlook發送消息。

有什麼辦法可以繞過這個彈出並直接發送郵件？如果答案是贖回，請讓我知道在哪裏可以使用它在我下面的代碼 -

//string ls_name 
//integer id 
ls_name = sle_name.text 
id = integer(sle_id.text) 

dw_report.Saveas("d:\abc.xls", Excel!, True) 


mailSession mSes 

mailReturnCode mRet 

mailMessage mMsg 

// Create a mail session 

mSes = create mailSession 

// Log on to the session 

mRet = mSes.mailLogon(mailNewSession!) 

IF mRet <> mailReturnSuccess! THEN 
     MessageBox("Mail", 'Logon failed.') 
     RETURN 

END IF 

// Populate the mailMessage structure 

mMsg.Subject = ls_name 

mMsg.NoteText = 'Recieved Mail From PB' 

mMsg.Recipient[1].name = 'priyadarsini_m01@infosys.com' 
//mMsg.AttachmentFile[1].file = 'D:\EB130157\EB130157_22.doc' 

mMsg.AttachmentFile[1].FileType = mailAttach! 
    mMsg.AttachmentFile[1].FileName = 'abc.xls' 
    mMsg.AttachmentFile[1].PathName = 'D:\abc.xls'  
    mMsg.AttachmentFile[1].position = 1 

//mMsg.Recipient[2].name = 'Shaw, Sue' 

// Send the mail 

mRet = mSes.mailSend(mMsg) 

IF mRet <> mailReturnSuccess! THEN 
     MessageBox("Mail Send", 'Mail not sent') 
     RETURN 

END IF 

mSes.mailLogoff() 

DESTROY mSes 

Answer 1

我相信，這是在Windows/Outlook中的安全設置，這是不是你可以在PowerBuilder控制。

Answer 2

這裏有很多變數（例如，我認爲Exchange服務器環境與直接SMTP相比，這是不同的），並且事情隨着時間而改變。過去有一種叫做贖回的OLE解決方案，雖然我不知道它是否相關。

我知道我在Outlook 2010中在Exchange環境中最近碰到了這樣的問題，在這裏設置：

選項/信任中心/信任中心設置... /編程 訪問

被設置爲「當我的防病毒軟件處於非活動狀態或過期時警告我有關可疑活動」，並告訴我用戶的防病毒軟件已過期。修復防病毒問題導致提示消失。

我認爲這會解決您的問題嗎？可能不會。這只是爲了說明您可能需要擴大自己的視野以尋求解決方案，並且您的起點應該是Outlook，而不是PowerBuilder。 （如果微軟已完成其工作，有什麼你可以用任何工具來打敗它的安全性做的，所以你最好努力工作與它，而不是對它。）

好運。