Send email Error...Please Help.

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have several computers, most running Win2k with Office 2000 sp3, and 1
machine running WinXP with Office 2000 sp3.

Problem is, when I try to send email from Excel on the WinXP machine I get a:

Run-time error '-2113732605 (82030003)';
Internal application error.

This error only arises on the WinXP machine.

------- My Code: -----------
Private Sub EMail_Lbl_Click()
SendMail
End Sub

Sub SendMail()
Dim olApp As Outlook.Application
Dim olMail As MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

With olMail
.To = "xxx"
.Subject = "xxx"
.Display
End With

Set olMail = Nothing
Set olApp = Nothing
End Sub
 
Back
Top