Jishnu 160 Posting Pro


I'm using MAPI component to send email messages via VB6. Here's my code:

Option Explicit

Private Sub cmdEnd_Click()
	Unload Me
End Sub

Private Sub cmdSend_Click()
	MAPISession1.DownLoadMail = False
	MAPIMessage1.SessionID = MAPISession1.SessionID
	MAPIMessage1.RecipAddress = txtSendTo.Text
	MAPIMessage1.MsgSubject = txtSubject.Text
        MAPIMessage1.MsgNoteText = txtMessage.Text
        MAPIMessage1.Send False 
End Sub

Private Sub Form_Load()
	Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub txtSendTo_GotFocus()
	txtSendTo.SelStart = 0
	txtSendTo.SelLength = Len(txtSendTo)
End Sub

When I run it, I've to enter data in the fields 'To', 'Subject' and 'Message'. When I click on 'Send', a prompt appears which says, "A program is attempting to send the following email message on your behalf, <Details of the message>, Would you like to send the message?" There are two buttons, 'Send' and 'Do not send'. The currently selected button is 'Send'. I want to automate the process of selecting the appropriate action i.e. sending or not sending the message. I want to change my code so that this action is dealt with from the code itself.

I'd thought that inserting ascii values for characters like tab key and enter key in the keyboard buffer after a certain delay would solve the problem. But I don't know how to implement the same. Also, I'd like to know is there any other easier way to achieve the same?


Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, learning, and sharing knowledge.