Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

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

Posted on 2006-07-24
6
Medium Priority
?
204 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
  • 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
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 76

Accepted Solution

by:
David Lee earned 2000 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

Get your Conversational Ransomware Defense e‑book

This e-book gives you an insight into the ransomware threat and reviews the fundamentals of top-notch ransomware preparedness and recovery. To help you protect yourself and your organization. The initial infection may be inevitable, so the best protection is to be fully prepared.

Question has a verified solution.

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

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.
If you troubleshoot Outlook for clients, you may want to know a bit more about the OST file before doing your next job. IMAP can cause a lot of drama if removed in the accounts without backing up.
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…

971 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