Sending Reminder through VB

[squrel]

Dear All,

I want to send a reminder through VB in a particular date and time to some particular recipient.... is thr any trigger or query tht i can use for this matter? i m using VB6 and SQLServer 2000.
Thanks in advance

[squrel]

Is anyone thr to help me out?

[anuragshrivastava64]

Why don't u can create a timer and in the Timer Event write ur code

[debasisdas]

who you want to send reminder ?

are you trying to send a mail ?

[squrel]

i have these field in my form :
Id
CaseId
Remind Dt
Reminder (Text)
ReminderBy (System/UserId)
ReminderTo (userID)
Entry Date
Close Date
Ind (0-Open, 1 - Closed, 9 - Cancelled)

i have to send a reminder to some particular people on a particular date and time...
i knw have to use the MAPI control but have no idea how to use tht..
need help

[debasisdas]

are you trying to send a mail ???

[squrel]

ya something like a mail... how can i do tht?

[debasisdas]

change and run this code dynamically by timer as desired.

[code=vb]
Private Sub Command1_Click( )
Dim objSession As Object
Dim objMessage As Object
Dim objRecipient As Object

'Create the Session Object.
Set objSession = CreateObject("M API.SESSION")

'Logon using the session object.
'Specify a valid profile name if you want to.
'Avoid the logon dialog box.
objSession.Logo n profileName:="M S Exchange Settings"

'Add a new message object to the OutBox.
Set objMessage = objSession.Outb ox.Messages.Add

'Set the properties of the message object.
objMessage.Subj ect = "This is a test."
objMessage.Text = "This is the message text."

'Add a recipient object to the objMessage.Reci pients collection.
Set objRecipient = objMessage.Reci pients.Add

'Set the properties of the recipient object.
objRecipient.Na me = "debasis.8000@g mail.com" '<---Replace this with a valid
'display name or e-mail alias
'Type can be ActMsgTo, mapiTo, or CdoTo for different CDO versions;
'they all have a constant value of 1.
objRecipient.Ty pe = mapiTo
objRecipient.Re solve

'Send the message.
objMessage.Send showDialog:=Fal se
MsgBox "Message sent successfully!"

'Logoff using the session object.
objSession.Logo ff
End Sub
[/code]

[squrel]

ok i wil try tht..
thank u very much

[squrel]

One thing i wanted to ask... i have to add that MAPI control from the components to my project... rit?

[debasisdas]

yes you need MAPISESSION and MAPIMESSAGE components.