【背景】

            今天一個朋友問我，domino代理髮送郵件，對方收到發件人都是admin，怎麼設定指定發件人呢？親自寫了段程式碼，發現是可行的。

【參考程式碼】

Sub Initialize
	On Error GoTo errhandle
	Dim ss As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	
	Set db = ss.Currentdatabase
	Set doc = db.Createdocument()
	doc.Form = "memo"
	doc.Principal = "zhangsan12"
	
	doc.SendTo = "
 
[email protected]"
	doc.Subject = "郵件傳送主題"
	
	doc.body = "郵件傳送內容"
	
	Call doc.send(True)
	
	MsgBox "郵件傳送成功！"
	
	Exit sub
errhandle:
	MsgBox ss.Currentdatabase.Filepath & "," & ss.Currentagent.name & ",Error:" & Error() & ",erl:" & CStr(Erl())
	Exit sub
End Sub

【實現效果】

說明：

        Principal：賦值的使用者名稱，names.nsf不存在的使用者也可傳送，不知道是否與伺服器配置有關，但是不傳入其他系統的郵件地址，可千萬想著用這個使壞啊。