repost - Sean or Kent: add "web and sendMail Option"

[Anonymous]

Repost without Sean's email address at his request. --- Anne Brown Discussion Groups Administrator Autodesk, Inc. Subject: Sean or Kent: add "web and sendMail Option" Date: Tue, 15 Jun 2004 07:55:59 -0700 From: "Calimesa" Newsgroups: autodesk.inventor.customization I add these two subs into my code and I got an error mesg at the ShellExecute 0 Anything else I need to add to have this works, Please help. thanks. Private Sub Label1_Click() Dim webadd As String webadd$ = "email address" ShellExecute 0, "Open", webadd$, "", "", vbNormalFocus End Sub Private Sub Label2_Click() Dim emailme As String emailme$ = "email address" ShellExecute 0, "Open", emailme$, "", "", vbNormalFocus End Sub *** Subject: Re: Sean or Kent: add "web and sendMail Option" Date: Tue, 15 Jun 2004 11:10:08 -0400 From: "Brian Iwaskewycz" Newsgroups: autodesk.inventor.customization Should be: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Email_Click() ShellExecute Me.hwnd, "Open", "", "", "", 1 End Sub *** Subject: Re: Sean or Kent: add "web and sendMail Option" Date: Tue, 22 Jun 2004 19:05:51 -0400 From: "Sean Dotson" Newsgroups: autodesk.inventor.customization and thanks for putting my unmunged email address out on the net for all to read... -- Sean Dotson, PE Autodesk Inventor Certified Expert http://www.sdotson.com

[Anonymous]

Thanks Anne -- Sean Dotson, PE www.sdotson.com Autodesk Inventor Certified Expert Sidel, Engineering & Manufacturing Manager "Anne Brown" wrote in message news:40D8D4BD.7FB0ADA8@autodesk.com... > Repost without Sean's email address at his request. > --- > Anne Brown > Discussion Groups Administrator > Autodesk, Inc. > > Subject: > Sean or Kent: add "web and sendMail Option" > Date: > Tue, 15 Jun 2004 07:55:59 -0700 > From: > "Calimesa" > Newsgroups: > autodesk.inventor.customization > > I add these two subs into my code and I got an error mesg at the > ShellExecute 0 > Anything else I need to add to have this works, Please help. > thanks. > > Private Sub Label1_Click() > Dim webadd As String > webadd$ = "email address" > ShellExecute 0, "Open", webadd$, "", "", vbNormalFocus > End Sub > > Private Sub Label2_Click() > Dim emailme As String > emailme$ = "email address" > ShellExecute 0, "Open", emailme$, "", "", vbNormalFocus > End Sub > > *** > Subject: > Re: Sean or Kent: add "web and sendMail Option" > Date: > Tue, 15 Jun 2004 11:10:08 -0400 > From: > "Brian Iwaskewycz" > > Newsgroups: > autodesk.inventor.customization > > > Should be: > > Private Declare Function ShellExecute Lib "shell32.dll" Alias > "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, > ByVal lpFile > As String, ByVal lpParameters As String, ByVal lpDirectory As > String, ByVal nShowCmd As Long) As Long > Private Sub Email_Click() > > ShellExecute Me.hwnd, "Open", "", > "", "", 1 > > End Sub > > *** > Subject: > Re: Sean or Kent: add "web and sendMail Option" > Date: > Tue, 22 Jun 2004 19:05:51 -0400 > From: > "Sean Dotson" > Newsgroups: > autodesk.inventor.customization > > > and thanks for putting my unmunged email address out on the net > for all to > read... > > -- > Sean Dotson, PE > Autodesk Inventor Certified Expert > http://www.sdotson.com