Email response

HCL Domino Domino Forum
1

i have problem when click a button, it cannot send to mail in 2 days repeatly.i want it when i click a button it send to mail repeatly in every 2 days, thanx for helping me!!!

Sub Click(Source As Button)

'send automatic e-mail notification in here

Dim s As New NotesSession

Dim ws As New NotesUIWorkspace

Dim cdoc As NotesDocument, quizDoc As NotesDocument

Dim username As NotesName

Dim item As NotesItem, item2 As NotesItem

Dim view As NotesView

Dim dv As NotesDocument

Dim DocAuthors(0 To 3) As String



trig.Interval=1

Set cdoc = ws.CurrentDocument.Document

cdoc.txStatus = "Completed"



Set username = New NotesName(cdoc.txClientName(0))

Set view = s.CurrentDatabase.GetView("Saran")

Set dv = view.GetFirstDocument



'check apa survei sudah pernah dibuat sebelumnya?

While Not dv Is Nothing

	If dv.txCustomerName(0) = username.Common And dv.txProductName(0) = cdoc.txTitle(0) Then

		'sudah pernah di buat survei documentnya

		Set quizDoc = dv

		Goto Lanjut

		'Msgbox "udah pernah di survei"

	End If

	Set dv = view.GetNextDocument(dv) 

Wend



Set quizDoc = s.CurrentDatabase.CreateDocument 



quizDoc.form = "frmQuizionare"

quizDoc.txCustomerName = 	username.Common 

quizDoc.txEmailAddress = cdoc.txEmail(0)

quizDoc.txProductName = cdoc.txTitle(0)

quizDoc.nmClient = cdoc.txClientName(0)



'Set item = New NotesItem(quizDoc,"chkProductionType", 0)

Set item2 = cdoc.GetFirstItem("chkMediaOutput")

quizDoc.CopyItem item2,"chkProductionType"

'Forall value In item2.Values 

'	item.AppendToTextList(value)

'End Forall

'quizDoc.chkProductionType = cdoc.chkMediaOutput(0)

quizDoc.dtRequestProduct = cdoc.dtRequestDate(0)

quizDoc.dtRequestDone = cdoc.dtDueDate(0)



Set uname = New NotesName(s.UserName)

quizDoc.txHistory = "Created on " + Now() + " By: " + uname.Common



'set document authors

DocAuthors(0) = "[Management]"

DocAuthors(1) = "[Coordinator]"

DocAuthors(2) = uname.Canonical	

DocAuthors(3) = cdoc.txClientName(0)



quizDoc.DocEditors = DocAuthors

quizDoc.GetFirstItem("DocEditors").isAuthors = True



quizDoc.Save False, True

cdoc.Save False, True

'send automatic e-mail notification here

'checking recipent e-mail address is it from binus or not

Lanjut:

'tgl=quizdoc.LastAccessed





'While quizdoc



If Instr(Lcase(quizDoc.txEmailAddress(0)),"@binus.ac.id" )= 0 Then

	'mail luar

	generateMailLuar

'	flag = False

Else

	'mail dalam

	generateMailDalam quizDoc

'	flag = False

End If

'ws.EditDocument ,quizDoc

End Sub

Sub generateMailLuar

Dim s As New NotesSession

Dim db As NotesDatabase 

Dim memo As notesdocument

Dim ws As New NotesUIWorkspace

Dim cdoc As NotesDocument

Dim item As NotesItem

Dim uname As NotesName



Set db = s.CurrentDatabase

Set memo = db.CreateDocument

Set cdoc = ws.CurrentDocument.Document



memo.form = "MailLuar"

Set uname = New NotesName(cdoc.txClientName(0))

memo.Subject = "[PDC Performance Indicators]: Permintaan Produksi Anda Telah Selesai"

memo.txCustomer = uname.Common 

memo.txProductName = cdoc.txTitle(0)



Set item = cdoc.GetFirstItem("chkMediaOutput")

memo.CopyItem item, "chkJenisProduksi"

'memo.chkJenisProduksi = cdoc.chkMediaOutput(0)

memo.dtRequestProduct = cdoc.dtRequestDate(0)

memo.dtRequestDoneProduct = cdoc.dtDueDate(0)



'ws.EditDocument True, memo, True

'memo.SendTo = cdoc.txEmail(0)

memo.sendto = "fondation_1@yahoo.com"

memo.Send True

End Sub

Sub generateMailDalam(docLink As NotesDocument)

Dim s As New NotesSession

Dim db As NotesDatabase 

Dim rtf As NotesRichTextItem 

Dim doc As NotesDocument

Dim cdoc As NotesDocument

Dim ws As New NotesUIWorkspace 

Dim uname As NotesName



Set db = s.CurrentDatabase

Set doc = db.CreateDocument

Set cdoc = ws.CurrentDocument.Document 

Set rtf = New NotesRichTextItem(doc,"body")

Set uname = New NotesName(cdoc.txClientName(0))

rtf.AppendText "Kepada yth," 

rtf.AddNewline 1

rtf.AppendText "Bpk/Ibu " + uname.Common 

rtf.AddNewline 2



rtf.AppendText "E-mail ini adalah program notifikasi otomatis oleh system, dan dengan ini kami dari PDC Bina Nusantara, ingin menyampaikan bahwa permintaan multimedia yang Anda minta sudah selesai kami lakukan."

rtf.AddNewline 1

rtf.AppendText "Setelah Anda melihat, menganalisa dan mencoba produk kami, kami juga ingin mendapatkan pendapat Anda mengenai hasil kinerja kami, supaya menjadi input yang membangun bagi kami."

rtf.AddNewline 1

rtf.AppendText "Kiranya Anda mau meluangkan waktu Anda untuk menjawab beberapa pertanyaan ini, dengan meng-klik disini "

rtf.AppendDocLink docLink, "Click Here!!"

rtf.AddNewline 2

rtf.AppendText "Terima Kasih atas dukungan Anda untuk kemajuan kita bersama."



doc.Subject = "[PDC Performance Indicators]: Permintaan Produksi Anda Telah Selesai"

doc.SendTo = cdoc.txEmail(0)

doc.Send False

End Sub