Send email Error...Please Help.
 

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

Send email Error...Please Help.
 

Hi TroyH

Try this
http://www.rondebruin.nl/mail/problems.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"TroyH" wrote in message ...
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