G
Guest
Is it possible to pass an email address to Groupwise?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
S
Stefan Hoffmann
Is it possible to pass an email address to Groupwise?
Yes.
Yes.
S
Stefan Hoffmann
hi Ken,
mfG
--> stefan <--
http://www.mvps.org/access/modules/mdl0059.htmIs it possible to pass an email address to Groupwise?
mfG
--> stefan <--
G
Guest
Thanks, just the lead I was looking for.
I laughed nice and hard at the first response, since I was wondering when
I sent the question if it was too vague.
I laughed nice and hard at the first response, since I was wondering when
I sent the question if it was too vague.
G
Guest
That link showed some nice programming, but way more than I need. I would
like to open Groupwise's New Mail form with the address from my Access form
in the "to" field.
like to open Groupwise's New Mail form with the address from my Access form
in the "to" field.
S
Stefan Hoffmann
hi Ken,
Declare Sub ShellExecute Lib "shell32" Alias "ShellExecuteA"
(ByVal AWnd As Long, _
ByVal AOperation As String, _
ByVal AFileName As String, _
ByVal AParameter As String, _
ByVal ADirectory As String, _
AShowCmd As Long)
Public Function SendEmail(AEmail As String _
) As Boolean
On Local Error GoTo LocalError
DoCmd.Hourglass True
ShellExecute Application.hWndAccessApp, _
"open", _
"mailto:" & AEmail & "?subject=Do It", "", "", 0
DoCmd.Hourglass False
SendEmail = True
LocalError:
DoCmd.Hourglass False
SendEmail = False
End Function
mfG
--> stefan <--
That link showed some nice programming, but way more than I need. I would
like to open Groupwise's New Mail form with the address from my Access form
in the "to" field.
Declare Sub ShellExecute Lib "shell32" Alias "ShellExecuteA"
(ByVal AWnd As Long, _
ByVal AOperation As String, _
ByVal AFileName As String, _
ByVal AParameter As String, _
ByVal ADirectory As String, _
AShowCmd As Long)
Public Function SendEmail(AEmail As String _
) As Boolean
On Local Error GoTo LocalError
DoCmd.Hourglass True
ShellExecute Application.hWndAccessApp, _
"open", _
"mailto:" & AEmail & "?subject=Do It", "", "", 0
DoCmd.Hourglass False
SendEmail = True
LocalError:
DoCmd.Hourglass False
SendEmail = False
End Function
mfG
--> stefan <--
G
Guest
Thats the stuff. I've got it working , now I just want to figure out how.
Can't thank you enough.
Can't thank you enough.