Hi all,

i wat to send new year well wishes message, now i have alot of emails
in Microsoft Outlook. i want to find all email addresses that i have
either send them email or received from. is there any way i can
collect all of them rather than clicking on each and copying?

thanks in advance

you will have to write a macro...

--
I am what I am - the cow don''t make ham...


"saleem" wrote:

> Hi all,
>
> i wat to send new year well wishes message, now i have alot of emails
> in Microsoft Outlook. i want to find all email addresses that i have
> either send them email or received from. is there any way i can
> collect all of them rather than clicking on each and copying?
>
> thanks in advance
>
>

On Mar 19, 8:23 pm, Aligator <Aliga...@discussions.microsoft.com>
wrote:
> you will have to write a macro...
>
> --
> I am what I am - the cow don''t make ham...
>
>
>
> "saleem" wrote:
> > Hi all,
>
> > i wat to send new year well wishes message, now i have alot of emails
> > in Microsoft Outlook. i want to find all email addresses that i have
> > either send them email or received from. is there any way i can
> > collect all of them rather than clicking on each and copying?
>
> > thanks in advance- Hide quoted text -
>
> - Show quoted text -

plz help the cow to make ham

You have a folder full of mails. Now you want to reply to each of them
sending some fixed message.
First write an email. Save the email. It will go to "Drafts" folder. Now
drag that email to the folder which contains all the emails you want to reply
to. Open the folder and select your answer email.
Now press ALT+F11 , access the "Insert" menu and click "Module".
Then paste the macro at the end of the post in the new module window.
Hit F5 and wait for some time. You will get a message telling how many mails
you did sent at the end....
.....enjoy the ham



Sub ReplytoALLEmail()
Dim compteur As Integer
Dim objFolder As Folder
Dim objTemplate As MailItem
Dim objItem As MailItem
Dim objReply As MailItem
Dim strEmail As String
Dim strEmails As String
Dim strBody As String
Dim strSubject As String
Set objTemplate = Application.ActiveExplorer.Selection.Item(1)
Set objFolder = objTemplate.Parent
compteur = 0
strBody = objTemplate.Body
strSubject = objTemplate.Subject
For Each objItem In objFolder.Items
If Not (objTemplate = objItem) Then
strEmail = objItem.SenderEmailAddress
Set objReply = objItem.Reply()
objReply.Body = strBody
objReply.Subject = strSubject
On Local Error Resume Next
objReply.Send
compteur = compteur + 1
End If
Next
MsgBox " Operation Successfull! " & vbCrLf & vbCrLf & "
Sent " & compteur & " Mails "
End Sub