Results 1 to 2 of 2
  1. #1
    New Lounger
    Join Date
    Jul 2004
    Thanked 0 Times in 0 Posts

    Email Automation (2002)

    Hello -

    Let me begin by offering many thanks to those who have assisted me with previous questions of mine . . .

    I now have a two part question:

    1) Below is a macro that I utilize to semi-automate emailing tasks of mine. However, as many of you are aware, this macro results in an Outlook warning stating that "A program is trying to send an email on your behalf. Do you want to allow this?" My options appear to be limited to using "Click Yes" which is too slow (have to wait 5 seconds for each warning prompt) or by using a Redemption library (which I have downloaded). Unfortunately, I'm not sure what to do now that I have downloaded redemption. Do I need to revise my current macro (see below)? Any help would be greatly appreciated.

    Sub CompleteAndSend()
    ' Create a reference to the open message
    Dim msg As Outlook.MailItem
    Set msg = ActiveInspector.CurrentItem
    ' Set the subject line and send the message
    With msg
    .Subject = "Your Resume"
    End With
    If Not (msg Is Nothing) Then Set msg = Nothing
    ' Delete the selected message in the active folder
    With ActiveExplorer.Selection
    If .Count = 1 Then
    ' What to do if multiple messages are selected?
    End If
    End With
    End Sub

    Question #2:
    The emails that I'm replying to above are all from the same source. However, in the body of each of these emails is a link to a unique email address (the actual email address that I need to reply to). Currently, I just manually click on the link and then run the above macro. Assuming I can get around the delay caused by the "warning", is there a way I could modify the macro to also "find" the email link in the body of each email, click on the link and then follow-thru with the macro above? The email links are not in exactly the same position in each email, but they are in the general area of two places.

    I realize this may not be clear, but I appreciate any help to may be able to provide. If it would help, I could send you a few of the emails I'm referring to and walk you through the steps of what I need to automate.

    Thanks in advance for your help.


  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Silicon Valley, USA
    Thanked 93 Times in 89 Posts

    Re: Email Automation (2002)

    Q1: The site where you downloaded Redemption has several lengthy pages of code examples. In most cases, you first create the usual Outlook object (msg in your case), then you create a Redemption object and associate it with the Outlook object, then use the code you were running against your Outlook object against the Redemption object.

    Q2: Yes, it would be possible, but the easiest approach depends on how consistent the message format is. (I thought you'd want this. <img src=/S/wink.gif border=0 alt=wink width=15 height=15> )

Posting Permissions

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