Results 1 to 4 of 4
  1. #1
    Join Date
    Oct 2002
    Posts
    88

    Unanswered: Using Outlook Redemption

    I'm trying to automate emailing a report on a scheduled basis. I was intending to use Windows Task Scheduler with the /X switch in Access to fire up a macor which runs the query and sends the report as an excel file using the sendobject command.

    The trouble is I have Office XP and Outlook 2002 has a security feature that requires user input before it will send an email.

    I've heard their is a workaround called Outlook Redemption. http://www.dimastr.com/redemption/ .

    I don't know much about VB. I've been told it doesn'w work with the sendobject object, that I would have to write my own mail handling script to use it.

    Does anyone know anything about this and can give some advice???

    Thanks

  2. #2
    Join Date
    Nov 2002
    Location
    Sacramento, CA
    Posts
    34

    Re: Using Outlook Redemption

    Try using the code below. It will send an HTML email thru SMTP. Outlook doesn't even see it, however your Exchange server (if you have one) might.

    _______________________________________________
    Dim iMsg
    Dim iConf
    Dim Flds
    Dim strHTML

    Const cdoSendUsingPort = 2

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields

    ' Set the CDOSYS configuration fields to use port 25 on the SMTP server.

    With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-mail-server-here"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    .Update
    End With

    ' Build HTML for message body.
    strHTML = "<HTML>"
    strHTML = strHTML & "<HEAD>"
    strHTML = strHTML & "<BODY>"
    strHTML = strHTML & "<b> </b></br>"
    strHTML = strHTML & "<b> </b></br>"
    strHTML = strHTML & "<b> </b></br>"
    strHTML = strHTML & "<BODY>"
    strHTML = strHTML & "</HTML>"

    ' Apply the settings to the message.
    With iMsg
    Set .Configuration = iConf
    .To = "email address here"
    .From = ""
    .Subject = EmailSubject
    .HTMLBody = strHTML
    .Send
    End With

    ' Clean up variables.
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
    Last edited by dragracer; 01-08-03 at 11:14.

  3. #3
    Join Date
    Nov 2002
    Location
    San Francisco
    Posts
    251
    CDO behaves the same way as Outlook Object Model. If you install SP3 in Outlook2k or if you have Outlook2002, you are stucked.

    there are few ways how to go around....

    1. use CDO without the security patch
    see http://www.slipstick.com/outlook/esecup/olcdo.htm for details and http://www.slipstick.com/outlook/esecup/olcdo.htm for some samples

    2. if you use Exchange server, you can disable security
    http://www.microsoft.com/Office/ORK/...tsecupdate.htm

    3. use another SMTP API for sending emails
    most of them are not free

    4. you can use Windows 2000 Server CDONT - called CDO for Windows 2000 (it is different CDO than CDO above!!!)
    it uses Windows SMTP Server and it is used mostly for scripting and in ASP pages for sending emails....

    CDO for Windows2000 (works on the server only)
    http://msdn.microsoft.com/library/de...ndows_2000.asp

    CDO 1.2.1
    http://msdn.microsoft.com/library/de...ndows_2000.asp


    jiri
    Last edited by playernovis; 01-07-03 at 21:47.

  4. #4
    Join Date
    Oct 2002
    Posts
    88

    Outlook

    I have Outlook 2002. Ou IT department doesn't want to use the newer excange server that can overide security. So I'm stuck???

    I was trying some things last week and it appeared that if I closed outlook and opened another email program that I could send attachments using sendobject. This week it is opening outlook??

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •