O
Ole Thomas Sløgedal
Hi!
Can anyone help me with this. I have Outlook Express 6 on the machine that
default from Windows XP and try to send mail as shown below. I think I
must check the Project References but can not find out the name to get this
to work. Can anyone help me? As it is now then stops at the first Set-line.
Ole T.
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
..To = "(e-mail address removed)"
..Subject = "email subject"
..Body = "email message"
..Send
End With
Can anyone help me with this. I have Outlook Express 6 on the machine that
default from Windows XP and try to send mail as shown below. I think I
must check the Project References but can not find out the name to get this
to work. Can anyone help me? As it is now then stops at the first Set-line.
Ole T.
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
..To = "(e-mail address removed)"
..Subject = "email subject"
..Body = "email message"
..Send
End With