Solved

Need tool for outlook 2003 to send emails to a list one by one

Posted on 2006-07-24
6
199 Views
Last Modified: 2010-04-08
This makes an email sent to a list of email addresses seem more personal. The recipients will get no information about the other recipients and will see only their own name and address in the "To" field.


I am sure there must be freeware for that.

thanks.
0
Comment
Question by:swisscommerce
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
6 Comments
 
LVL 97

Expert Comment

by:war1
ID: 17168589
Greetings, swisscommerce !

Here is an Outlook Add-in that will do what you want
http://www.softaward.com/9641.html

Best wishes!
0
 
LVL 76

Expert Comment

by:David Lee
ID: 17172084
Greetings, swisscommerce.

I can do it with a bit of Outlook VBA script, if that's an option.

Cheers!
0
 

Author Comment

by:swisscommerce
ID: 17175504
Hey BlueDevilFan,

thanks. that would be great. where would i need to copy and paste the script?

would prefer this method, which allows me finally to get a quick intro into outlook scripting. If this is ok with you.
0
Creating Instructional Tutorials  

For Any Use & On Any Platform

Contextual Guidance at the moment of need helps your employees/users adopt software o& achieve even the most complex tasks instantly. Boost knowledge retention, software adoption & employee engagement with easy solution.

 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
ID: 17180805
swisscommerce,

Here's the code for doing this.  Follow these instructions to use it.

1.  Start Outlook
2.  Click Tools->Macro->Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects and click on ThisOutlookSession
4.  Copy the code and paste it into the right-hand pane of the VB Editor window
5.  Click the diskette icon on the toolbar to save the changes
6.  Close the VB Editor
7.  Click Tools->Macro->Security
8.  Set the Security Level to Medium
9.  Close Outlook
10.  Start Outlook
11.  Outlook will display a dialog-box warning that ThisOutlookSession contains macros and asking if you want to allow them to run.  Say yes.
12.  Create a message and address it to multiple recipients or to a distribution list.  If you choose a distribution list, then you have to expand the list before sending otherwise the code won't work.
13.  Fill the message out as you would any message.  You can even add attachments.
14.  Before sending, click View->Options and enter SpecialSend in the Categories field.
15.  Send the message.  ItemSend will intercept the message and create a separate copy for each recipient.  This process is going to trigger Outlook's built-in security.  That will cause a dialog-box to pop up warning that an application is accessing your mailbox.  It will also trigger a warning box as each message is sent.  There are ways around this, the two simplest of which both use third-party tools.  Those are Click-Yes and Outlook Redemption.  Redemption is the best solution, being both the safest and one designed for Outlook code.



Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim olkMessage As Outlook.MailItem, _
        olkRecipient As Outlook.Recipient, _
        olkAttachment As Outlook.Attachment
    If Item.Class = olMail Then
        If Item.Categories = "SpecialSend" Then
            For Each olkRecipient In Item.Recipients
                Set olkMessage = Application.CreateItem(olMailItem)
                With olkMessage
                    .Subject = Item.Subject
                    .BodyFormat = Item.BodyFormat
                    .Body = Item.Body
                    .HTMLBody = Item.HTMLBody
                    .Importance = Item.Importance
                    .Sensitivity = Item.Sensitivity
                    .Recipients.Add olkRecipient.Address
                    CopyAttachments Item, olkMessage
                    .Send
                End With
            Next
            Cancel = True
        End If
    End If
    Set olkAttachment = Nothing
    Set olkRecipient = Nothing
    Set olkMessage = Nothing
End Sub

Sub CopyAttachments(olkSourceItem As Outlook.MailItem, olkTargetItem As Outlook.MailItem)
    Dim objFSO As Object, _
        objFolder As Object, _
        olkAttachment As Outlook.Attachment, _
        strFilename As String
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetSpecialFolder(2)
    For Each olkAttachment In olkSourceItem.Attachments
        strFilename = objFolder.Path & "\" & olkAttachment.FileName
        olkAttachment.SaveAsFile strFilename
        olkTargetItem.Attachments.Add strFilename, , , olkAttachment.DisplayName
        objFSO.DeleteFile strFilename
    Next
    Set olkAttachment = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub
0
 

Author Comment

by:swisscommerce
ID: 17218177
thanks BlueDevilFan , excellent.
0
 
LVL 76

Expert Comment

by:David Lee
ID: 17219677
You're welcome.  Glad I could help.
0

Featured Post

Increase your protection from Zero Day threats!

Running two Antivirus' is never a good idea.
Taking advantage of Multiple Security layers on the other hand can often save your hide.
See which top notch security software brands have been proven to happily coexist together.
Reduce your chances of becoming a statistic.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Large Outlook files lead to various unwanted errors and corruption issues. Furthermore, large outlook files can also make Outlook take longer to start-up, search, navigate, and shut-down. So, In this article, i will discuss a method to make your Out…
When you have clients or friends from around the world, it becomes a challenge to arrange a meeting or effectively manage your time. This is where Outlook's capability to show 2 time zones in one calendar comes in handy.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
CodeTwo Sync for iCloud (http://www.codetwo.com/sync-for-icloud?sts=6554) automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…

710 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question