Hey everyone,
I have the following code in VBScript.
It works in Outlook 2001 but not in Outlook 2010.
We are running XP SP3.
Is there any code here that wouldn't be recognised by Outlook 2010, or for some reason break with the new version?
Thanks.
Code:On Error GoTo ErrorHandler Dim oApp As Object Dim oMail As Object Dim obody As String Dim strMail As String strMail = txtemail2.Text 'Prepare the e-mail Set oApp = CreateObject("Outlook.Application") Set oMail = oApp.CreateItem(0) obody = obody & "<p style='font-family:arial;font-size:12'>" obody = obody & "<br />" & "<br />" obody = obody & "Thank you for submitting your vacancy. " With oMail .htmlbody = obody .To = strMail .Subject = "Your recent correspondence with us." .Attachments.Add Environ("TEMP") & "\temp.doc" .Importance = 2 .Display End With Set oMail = Nothing Set oApp = Nothing Kill Environ("TEMP") & "\temp.doc" ActiveDocument.Undo (100) ErrorHandler: If Err.Number <> 0 Then MsgBox "Send unsuccessful. This may be due to exceeding your Outlook Storage Limit." _ & vbCrLf & "If your inbox, deleted and sent items folders are full please delete or archive some items." _ & vbCrLf & "Also please ensure your Team Leader email takes the format name.surname then try again." _ & vbCrLf _ & vbCrLf & "If you still receive this message please contact the Administrator:" _ & vbCrLf & "joebloggs@hello.com", vbSystemModal + vbCritical, "Message Not Sent!" ActiveDocument.Undo (100) End If End Sub


Reply With Quote

Bookmarks