Sending CDO.Message with importance

Here’s a script, well, a subroutine I wrote today for sending an email with VBSCript using the CDO.Message and CDO.Configuration COM Controls available in Windows. Having struggled a little to actually get it working (mainly through utter stupidity), I thought I’d blog it for anyone else struggling or just needing a quick fix.

As if to state the obvious, if you don’t wish to add an attachment, you must state that it is null when calling the subroutine.

18 thoughts on “Sending CDO.Message with importance”

  1. Thank you so much for publishing this! I have been searching for over an hour for the correct way to set the importance\priority using CDO, and everybody had a different way (none of which worked!). Your sub worked perfectly for me!

  2. Hello – can you answer a simple one? I have a form that allows the user to enter their email address, I then want to send them a reply. How do I script the reply into the “To = “”? Thanks.

  3. Hi Peter, this posting is actually a subroutine that you can use as many times as you like. You simply call it from within your script.

    For instance, you have the subroutine as above. You then call that subroutine using the following syntax:

    sendMail '', '', 'This is the subject', 'This is the message', Null

    You can call the subroutine as many times as you like within the same script.

    Again, the subroutine is copied in to the script, you then simply call it…

    First I set the message, obviously this could be quite a long message so I find it better to break it out in to a separate variable.
    sMessage = "Hello, this is a long message with line breaks" & VbCrLf & "This is the second line."

    sendMail "", "", "This is the subject", sMessage, Null
    sendMail "", "", "This is the subject", sMessage, Null

    If you’re sending the same message to more than one person, you can even just separate the email addresses with commas, thus:

    sendMail ",", "", "This is the subject", sMessage, Null

  4. Thanks a ton! I couldn’t easily solve the priority issue.

    You didn’t, however, include how to send LOW priority mail. After more searching and playing around I got this to work on Outlook 6 and my web based mail program at least:

    ObjMail.Fields.Item(“urn:schemas:mailheader:X-MSMail-Priority”) = “Low”
    ObjMail.Fields.Item(“urn:schemas:mailheader:X-Priority”) = 5
    ObjMail.Fields.Item(“urn:schemas:httpmail:importance”) = 0

  5. Thanks Sir.

    iImportance = Cint(request.form(“importance”))

    Select Case iImportance
    Case 2
    objMessage.Configuration.Fields.Item(“urn:schemas:mailheader:X-MSMail-Priority”) = “High” ‘ For Outlook 2003
    Case 1
    objMessage.Configuration.Fields.Item(“urn:schemas:mailheader:X-MSMail-Priority”) = “Medium” ‘ For Outlook 2003
    Case 0
    objMessage.Configuration.Fields.Item(“urn:schemas:mailheader:X-MSMail-Priority”) = “Low” ‘ For Outlook 2003
    End Select

    objMessage.Configuration.Fields.Item(“urn:schemas:mailheader:X-Priority”) = iImportance ‘ For Outlook 2003 also
    objMessage.Configuration.Fields.Item(“urn:schemas:httpmail:importance”) = iImportance

  6. Hi,
    I am new to access and i have created an employee database. In it there are fields of passport_Expiry, Labourcard_Expiry and i am struggling since last 1 month for setting up a reminder for warning me for an expiry. Like if the passport is getting Expiry on 03.08.2012 then i want it to remind me on 03.07.2012 as an email. It should automatically generate email from outlook and forward it to concern person. Please help me with it.


Leave a Reply

Your email address will not be published. Required fields are marked *