feathers212
04-16-2007, 12:25 PM
I ened up writing all of my coding using Excel 2003. Everything was working perfectly. Then I tried using my program on a user computer. PROBLEM! The end-user computers only have Excel 97. Now I'm stuck.....I'm trying to send my active workbook as an Outlook e-mail attachment (to multiple recipients):
'Create and show the outlook mail item
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
.To = "Scheduling; Pressroom Manager; Pressroom Engineer"
.Subject = "Pressroom Pulled Job Ticket"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Also, I have this code used during another step in the process (haven't tested it on the end-user Ecel 97 computers yet):
'Create and show the outlook mail item
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
.To = "Supervisor1; Supervisor2; Supervisor3"
'.CC = ""
.Subject = "Verify Pressroom Pulled Job Counts"
.HTMLBody = "A pull ticket has been submitted. Please check the <a href=""V:\press\Forum\Count Control\Pull Tickets\Verification Needed\"">Verification Needed</a> folder."
.Importance = 2
.Display
End With
I'm SO close to getting this project completed....just need to get it "97 friendly"
'Create and show the outlook mail item
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
.To = "Scheduling; Pressroom Manager; Pressroom Engineer"
.Subject = "Pressroom Pulled Job Ticket"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Also, I have this code used during another step in the process (haven't tested it on the end-user Ecel 97 computers yet):
'Create and show the outlook mail item
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
With oMail
.To = "Supervisor1; Supervisor2; Supervisor3"
'.CC = ""
.Subject = "Verify Pressroom Pulled Job Counts"
.HTMLBody = "A pull ticket has been submitted. Please check the <a href=""V:\press\Forum\Count Control\Pull Tickets\Verification Needed\"">Verification Needed</a> folder."
.Importance = 2
.Display
End With
I'm SO close to getting this project completed....just need to get it "97 friendly"