HOME > .NET Framework > Forum > ทำให้เป้น asp.net ทำไงค่ะ ขอรบกวนผู้ที่ทราบช่วยด้วยนะคะ คือเราทำ VBA มาค่ะ เป็นระบบส่ง mail เข้า lotus note แต่เราอยากจะเอาตัวนี้ไปทำ asp.net
ทำให้เป้น asp.net ทำไงค่ะ ขอรบกวนผู้ที่ทราบช่วยด้วยนะคะ คือเราทำ VBA มาค่ะ เป็นระบบส่ง mail เข้า lotus note แต่เราอยากจะเอาตัวนี้ไปทำ asp.net
Sub SendNotesMail()
'------Set up the objects required for Automation into lotus notes
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDbName As String 'THe current users notes mail database name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim Session As Object 'The notes session
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim Attachment As String 'Path & filename of attachment
Dim Recipient(500) As String 'The 500 names of to recipient
Dim ccRecipient As String 'The name of CC recipient
Dim BodyText As String 'String of body text
Dim Subject As String 'String of mail subject
Application.ScreenUpdating = False
On Error GoTo ERRMail
'------Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = "mail\pmmmee.nsf"
'------Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then 'Already open for e-mailing
Else 'Did not open , then open it now
Maildb.OPENMAIL
End If
'------Set up the new mail document
'---Clear recipient name
Erase Recipient
ccRecipient = ""
'---Set recipient name
n = 1 'count number of recipient
Recipient(n) = "[email protected]" 'Who is receive this mail?
'---Set body text
BodyText = "Dear Sir/Mam,ÀÒÉÒä·Â"
'---Set Subject
Subject = "Send lotus note"
'---Set mail document portion
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.principal = "My test"
MailDoc.Form = "Memo" 'Select type MEMO
MailDoc.sendto = Recipient 'Sent to all recipient
MailDoc.CopyTo = ccRecipient 'Sent CC all recipient
MailDoc.Subject = Subject 'Sent with subject xxx
MailDoc.Body = BodyText 'Show body text
'------Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
MailDoc.SEND 0, Recipient
'------Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
MsgBox "It was successfully sent EMAIL alert"
GoTo SubEnd
ERRMail:
On Error GoTo 0
MsgBox "Lotus Notes DOWN!!! or CLOSED!!! or something wrong."
SubEnd:
End Sub
Tag : - - - -
Date :
4 พ.ย. 2551 12:52:47
By :
itimnee
View :
1768
Reply :
1
No. 1
Guest
ต้องศึกาาว่า คำสั่งไหนมีหรือไม่มีใน asp.net ก่อนแล้วค่อยทำครับ
อย่างเช่น msgbox จำได้ว่า asp.net ไม่มีนะครับ
Load balance : Server 04
