And
the question is how to avoid Outlook's messages? I use ExpressClickYes, a
freeby from www.contextmagic.com, with
this code:
=======
Private Sub Form_Close()
' Comments :
' Parameters: -
' Modified :
'
' --------------------------------------------------
Dim strTo As String
Dim strMsg As String
Dim wnd As Long ' ExpressClickYes code (ECY)
Dim uClickYes As Long
Dim Res As Long
On Error GoTo PROC_ERR
' ECY: Register a
message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
' ECY: Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)
' ECY: Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)
DoCmd.RunCommand acCmdSaveRecord
If Me.chkClickYes = -1 Then
strTo = SendToList ' function that creates a send-to string
If Len(strTo) > 0 Then
strMsg = "Your message text"
If DCount("Keyfield_ID", "qryReport") > 0 Then
DoCmd.SendObject acSendReport, "rptMyReport", acFormatSNP, _
strTo, , , "Subject", strMsg, False
End If
End If
End If
PROC_EXIT:
' ECY: Send the message to Suspend ClickYes
Res = SendMessage(wnd, uClickYes, 0, 0)
Exit Sub
PROC_ERR:
MsgBox Err.Description
Resume PROC_EXIT
End Sub
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
' ECY: Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)
' ECY: Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)
DoCmd.RunCommand acCmdSaveRecord
If Me.chkClickYes = -1 Then
strTo = SendToList ' function that creates a send-to string
If Len(strTo) > 0 Then
strMsg = "Your message text"
If DCount("Keyfield_ID", "qryReport") > 0 Then
DoCmd.SendObject acSendReport, "rptMyReport", acFormatSNP, _
strTo, , , "Subject", strMsg, False
End If
End If
End If
PROC_EXIT:
' ECY: Send the message to Suspend ClickYes
Res = SendMessage(wnd, uClickYes, 0, 0)
Exit Sub
PROC_ERR:
MsgBox Err.Description
Resume PROC_EXIT
End Sub
=========
-----Original Message-----
From: AccessDevelopers@yahoogroups.com [mailto:[EMAIL PROTECTED] On Behalf Of Lonnie Johnson
Sent: Wednesday, October 19, 2005 12:00 PM
To: '[EMAIL PROTECTED]'; AccessDevelopers; ms_access; Access Professionals; AccessD solving'
Subject: [AccessDevelopers] Automatically Sending Mail on Office XP ives messageOk, I am visiting this age old problem again. We have Office XP on a machine that automatically sends out emails from windows
May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us
Yahoo! Music Unlimited - Access over 1 million songs. Try it free.
Please zip all files prior to uploading to Files section.
YAHOO! GROUPS LINKS
- Visit your group "AccessDevelopers" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
