pass address to Groupwise

[Guest]

Is it possible to pass an email address to Groupwise?

 

[Stefan Hoffmann]

Is it possible to pass an email address to Groupwise?
Yes.

 

[Stefan Hoffmann]

hi Ken,

Is it possible to pass an email address to Groupwise?

http://www.mvps.org/access/modules/mdl0059.htm


mfG
--> stefan <--

 

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

 

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

 

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

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

 

[Guest]

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