Sendmail problems

[barella]

I have developed an Order Sheet in Excel XP which uses ActiveWorkbook.Sendmail to enable the order form to be emailed to a supplier, however when I have sent this spreadsheet out to the sales managers, who use Excel 97 on their machines, they are receiving an runtime error message 1004 "Method 'SendMail' of object '_Worksheet' failed."

What makes it more peculiar is that the sales managers already have a spreadsheet which sends out emails of their Sales Logs using the Sendmail method, which works fine. However, this spreadsheet was developed in Excel 97 as opposed to Excel XP.

Any ideas as to how to correct this problem? Is it to do with the different versions, and would a solution be to save the spreadsheet as an Excel 97 one?

Any help will be appreciated.

Regards,

Barella

[RobDog888]

Yes, it is because they are using an older version then yours. Either use the
same version or use ShellExecute API code to invoke a new email using the
default email client.

'VB6 Example
Option Explicit
 
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 Const SW_SHOWNORMAL As Long = 1
 
Private Sub Command1_Click()
    'Use Application.hWnd when using with Excel instead of Me.hwnd
    ShellExecute Me.hwnd, "Open", "mailto:[email protected]?subject=Email Test&Body=This is the body.", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

HTH