關於mailsend

[ykingsun]

我如何讓郵件發到outlook而不是notes郵箱裡.


Private Function PostActivityCompleted_(CoverDocument As NotesDocument, BinderDocument As NotesDocument, Uiws As Variant, bImmediateRouting As Integer, ErrorCode As Integer, ErrorText As Variant)
On Error Goto exits
'1***********************駁回第一站發信通知 & 結案通知***********************

If BinderDocument.FOLDERSTATUSOS(0)="Routing path completed" And (BinderDocument.WM_PARALEVEL(0)="" Or BinderDocument.WM_PARALEVEL(0)="0") Then ' 主流程跑至 結束 時..通知所有人員
Call WM_SendMailToUserWithIDsAndType(BinderDocument,BinderDocument.WM_FlowReader,"tony.yang@coretronic.com","Y")
End If

' =================設定額外讀者 ======================
If BinderDocument.ACTIVITYOS(0)="" Then
If BinderDocument.HasItem("WM_OtherReaders") Then
Dim OtherReaders As NotesItem
Set OtherReaders=BinderDocument.GetFirstItem("WN_OtherReaders")
If Not OtherReaders Is Nothing Then
OtherReaders.Isreaders=True
End If
End If
End If
' ----------------------------------------------------------------------------------------------------------
Call BinderDocument.save(True,False)
Exit Function
exits:
Messagebox "PostActivity Complet Error at line " & Erl
End Function