pass address to Groupwise

K

Ken

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.
 
K

Ken

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.
 
S

Stefan Hoffmann

hi Ken,
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.
Click to expand...

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 <--
 
K

Ken

Thats the stuff. I've got it working , now I just want to figure out how.
Can't thank you enough.
 
Top