[97] Automatically send mail

bodylojohn

Registered User.
Local time
Today, 10:23
Joined
Dec 28, 2005
Messages
205
Hello,

I have built an application in access 97 that orders articles.

now i use this code to send data to outlook express 6:
Code:
Private Sub cmdMail_Click()
Dim strMessage As String
strMessage = "Geachte Relatie," & vbCrLf & vbCrLf & "Ik zou graag het volgende willen bestellen:" & vbCrLf & Me.txtTestOmschrijving & vbCrLf & "Hartelijk dank"

If IsNull(Me.txtEmail) Or Me.txtEmail.Value = "" Then
    MsgBox ("Er is geen email adres bekend voor deze leverancier")
Else
    DoCmd.SendObject acSendNoObject, , , "info@sosol.nl", , , "Onderwerp", strMessage
End If
End Sub

Can I adjust it so it sends automatically?

Now the outlook express mail window appears (filled with the right data and email adres) but I have to push send.

Can I do this automated?
 
Im so stupid.

I resolved it.
I forgot the option adjustmessage set to false.

It works great guys.
 

Users who are viewing this thread

Back
Top Bottom