- リデンプション:5.10.0.4312
- デルファイ32分の2007
- MS Office 365の/展望2016 v1710
A Windowsのアップデートダウンロードした昨日(「機能の更新Windows 10、バージョン1709」)には、メールを送信するための特典コードがありませんでした。簡略化されたコードは次のとおりです。償還はMAPI_E_NO_RECIPIENTS
OutlookApp := GetActiveOleObject(Outlook_Application_Class);
OLNameSpace := OutlookApp.GetNameSpace(MAPI_NAMESPACE);
OLNameSpace.Logon;
myOutlookItem := OutlookApp.CreateItem(olMailItem);
myItem := CreateOLEObject(Redemption_SafeMailItem_Class);
myItem.Item := myOutlookItem;
myRecipient := myItem.Recipients.Add(toRecipient); // <---- '[email protected]'
myRecipient.Type := olTo;
myItem.Recipients.ResolveAll; // <----------- myItem.Recipient count = 0
myItem.Subject := AMessage_Subject;
myItem.Body := AMessage_Body;
myItem.Send; // <--- ERROR: Error in IMessage.SubmitMessage: MAPI_E_NO_RECIPIENTS
私がRedemptionを使用しない場合、正しく動作します。
私はmyOutlookItem.Recipients.AddにmyItem.Recipients.Addを変更した場合、私はMAPI_E_AMBIGUOUS_RECIP
も試したことがあります:使用
- Windowsの再起動
- 再登録償還DLL
- 最新の償還版を試す、5.15.0.4892
次に試すものは何ですか?
おかげ
Redemption –