Results 1 to 2 of 2
2004-07-15, 02:11 #1
- Join Date
- Jul 2004
- Thanked 0 Times in 0 Posts
Macro help for automation (Outlook 2000)
Looking to Automate a manual process . . . I currently have numerous emails sent to me which have a link of a different email address (different email address than the source of the email). For each email, I must click the link that will launch my email. I have set my signature to include the body of my email. However, for every email, I must paste the subject (control-V), followed by an Alt-S (to send the email) and then a Control-D (to delete the email that I just viewed). After deleting each email, I repeat the process with the next email.
With all this said, I'm looking to simplify this process. For example, is there a way to include a default subject line each time I click on an email email? Of course, I would still want to include my signature as the body of the email.
better yet, is there a simple macro I could launch after I click on each email link? I would envision a macro that could be ran at the click of a button that would populate the Subject line with a defaul Subject, then send the email and delete the current email just viewed.
I hope this makes sense and I appreciate any help you may be able to provide.
2004-07-15, 04:57 #2
- Join Date
- Feb 2001
- Silicon Valley, USA
- Thanked 93 Times in 89 Posts
Re: Macro help for automation (Outlook 2000)
You're not the guy who sends the reply saying "we will respond to your question shortly" -- and then deletes the question. <img src=/S/laugh.gif border=0 alt=laugh width=15 height=15>
Sorry, I couldn't resist. There are two steps in your description that pose an issue. The first is actually sending, which may invoke a security warning and 5 second delay. It would be easier to press Alt+S than to wait for that. The second is to delete the message that was the source of the link. I suppose it's reasonable to delete whatever message is selected in the active folder, but if you can think of a scenario where that would be wrong, perhaps it's easier to hit the Del key.
Do these messages have a standardized format where it is would be easy for a computer to find the address you need to send to? If so, you could have the computer do pretty much everything. <img src=/S/smile.gif border=0 alt=smile width=15 height=15> Although I guess clicking isn't so bad.
Anyway, here's some sample code:
' Create a reference to the open message
Dim msg As Outlook.MailItem
Set msg = ActiveInspector.CurrentItem
' Set the subject line and send the message
.Subject = "Thank you for your subscription!"
If Not (msg Is Nothing) Then Set msg = Nothing
' Delete the selected message in the active folder
If .Count = 1 Then
' What to do if multiple messages are selected?
If you use the Redemption library, you can avoid the security prompt, but the code's a bit more complicated. Hope this helps.
Added: I just re-read your message and realized that the original message, while it might get deleted my way, still will be on the screen. No time to work on this further tonight, but that should be manageable, too.