send an email - with autofill To:

[Pampers]

Hi there,
I want to sent an email if you double click the control. I used the following code, which does the job. But what do I use in this line so that the emailaddress automatically appears in the email-handler To:-field?
Peter

Private Sub EmailAddress_DblClick(Cancel As Integer)
    DoCmd.SendObject , , acFormatHTML, , , , "Dammers"
End Sub

 

[ClydeData]

Put this bit of code in the on clic evend of a form which as text boxes

subject =subject of ur email
EmailBody = message text
email = emaill addesses

' code begins
Dim strEmailAddress As String
Dim strSubject As String

Dim strEMailMsg As String

strSubject = Me.subject
strEMailMsg = Me.EmailBody
strEmailAddress = Me.email


DoCmd.SendObject , , acFormatRTF, strEmailAddress, _
, , strSubject, strEMailMsg, False, False

'code ends


hope this helps
jimmy

 

[jgoodman00]

Private Sub EmailAddress_DblClick(Cancel As Integer)
    DoCmd.SendObject , , acFormatHTML, , , , "Dammers"
End Sub

Private Sub EmailAddress_DblClick(Cancel As Integer)
    DoCmd.SendObject , , acFormatHTML,"target@domain.com" , , , "Dammers"
End Sub

Does this not work?

James Goodman MCSE, MCDBA

http://www.j.goodman.dsl.pipex.com

 

[Pampers]

Tnx for the replys!
Both solutions are working. And what is more, I found a 3th way.

Private Sub EmailAddress_DblClick(Cancel As Integer)
    DoCmd.SendObject , , acFormatHTML,EmailAddres.value , , , "Dammers"
End Sub

Returns the current emailaddress in the To: field.


Pampers.

You're never too young to learn