newnoviceuser
Programmer
here is the code im using
Sub email()
Dim TextLine
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Open "c:\report.txt" For Input As #1
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = "topdog@colla.com"
.Subject = "Testing"
While Not EOF(1)
Line Input #1, TextLine
.body = .body & TextLine & vbCrLf
Wend
.Send
End With
Close #1
End Sub
it works good except i have a problem with outlook i can not seem to fix on some of my computers and outlook express works on all of them. is there anyway i can get this to work with outlook express instead??
Sub email()
Dim TextLine
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Open "c:\report.txt" For Input As #1
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.To = "topdog@colla.com"
.Subject = "Testing"
While Not EOF(1)
Line Input #1, TextLine
.body = .body & TextLine & vbCrLf
Wend
.Send
End With
Close #1
End Sub
it works good except i have a problem with outlook i can not seem to fix on some of my computers and outlook express works on all of them. is there anyway i can get this to work with outlook express instead??