B
Ben Allen
Hi,
I have set up an image which when clicked on runs a macro which opens a
form. This form has 2 buttons, 'To Ship' and 'To HQ', these are there as the
document is designed to be sent to a cruise ship, updated and then sent back
to HQ. The code of this form is:
Private Sub ToShip_Click()
Unload Me
Application.Dialogs(xlDialogSendMail).Show _
arg1:="(e-mail address removed)", _
arg2:="Emailing To Ship"
End Sub
Private Sub ToHQ_Click()
Unload Me
Application.Dialogs(xlDialogSendMail).Show _
arg1:="(e-mail address removed)", _
arg2:="Emailing To Headquaters"
End Sub
When i run this it works fine, however, after emailing the file excel cuts
back to the desktop (or last open window) and when i click the image to
bring up the form i get 'Error 75', when clicking de-bug 'Email.Show' is
highlighted in yellow. This is the code for the word art/ picture that can
be clicked on:
Sub Picture12_Click()
Email.Show
End Sub
Sub WordArt14_Click()
Email.Show
End Sub
Sorry for the long post and thanks in advance for any replys.
Thanks Again.
--
Cheers,
Ben
Remove your.tonsils to reply
"You only live once but if you do it right once is enough!"
I have set up an image which when clicked on runs a macro which opens a
form. This form has 2 buttons, 'To Ship' and 'To HQ', these are there as the
document is designed to be sent to a cruise ship, updated and then sent back
to HQ. The code of this form is:
Private Sub ToShip_Click()
Unload Me
Application.Dialogs(xlDialogSendMail).Show _
arg1:="(e-mail address removed)", _
arg2:="Emailing To Ship"
End Sub
Private Sub ToHQ_Click()
Unload Me
Application.Dialogs(xlDialogSendMail).Show _
arg1:="(e-mail address removed)", _
arg2:="Emailing To Headquaters"
End Sub
When i run this it works fine, however, after emailing the file excel cuts
back to the desktop (or last open window) and when i click the image to
bring up the form i get 'Error 75', when clicking de-bug 'Email.Show' is
highlighted in yellow. This is the code for the word art/ picture that can
be clicked on:
Sub Picture12_Click()
Email.Show
End Sub
Sub WordArt14_Click()
Email.Show
End Sub
Sorry for the long post and thanks in advance for any replys.
Thanks Again.
--
Cheers,
Ben
Remove your.tonsils to reply
"You only live once but if you do it right once is enough!"