MAcro - Need help in getting the recipients in to filed / cc field toput in an array

Status
Not open for further replies.
S

Shreekanth Murali

This is the macro to stop sending without a subject as well as to warn the user whn he sends to the distribution list that starts with "#"

However this code detects the email addresses in TO / CC as one single string.

For eg if i have

shreekanth Murali; #IN - distribution

then it detects "shreekanth murali; #in - distribution" and not warning the presence of a distributon list in TO field... Im a beginner please lemme know how can i do it

Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)

Dim strSubject As String

strSubject = item.Subject

If Len(Trim(strSubject)) = 0 Then

Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"

If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then

Cancel = True

End If

End If

Dim a

Dim b

a = Mid(item.To, 1, 1)

If a = "#" Then

Prompt$ = "You are about to send an email to the distribution list " & item.To

If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Recipient is a distribution list") = vbNo Then

Cancel = True

End If

End If

End Sub

CSS Stylesheet Sampler Script

http://www.eggheadcafe.com/tutorial...0-64466ee722bc/css-stylesheet-sampler-sc.aspx
 
D

Dmitry Streblechenko

Re: MAcro - Need help in getting the recipients in to filed / cc field to put in an array

Instead of using To/CC/BCC properties, loop through all the recipients in

the MailItem.Recipients collection.

Dmitry Streblechenko (MVP)

-

<Shreekanth Murali> wrote in message

news:20091218121113sirmurali@yahoo.com...

> This is the macro to stop sending without a subject as well as to warn the
> user whn he sends to the distribution list that starts with "#"
> However this code detects the email addresses in TO / CC as one single
> string.

> For eg if i have

> shreekanth Murali; #IN - distribution

> then it detects "shreekanth murali; #in - distribution" and not warning
> the presence of a distributon list in TO field... Im a beginner please
> lemme know how can i do it

> Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)

> Dim strSubject As String

> strSubject = item.Subject

> If Len(Trim(strSubject)) = 0 Then

> Prompt$ = "Subject is Empty. Are you sure you want to send the
> Mail?"

> If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground,
> "Check for Subject") = vbNo Then

> Cancel = True

> End If

> End If

> Dim a

> Dim b

> a = Mid(item.To, 1, 1)

> If a = "#" Then

> Prompt$ = "You are about to send an email to the distribution list " &
> item.To

> If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground,
> "Recipient is a distribution list") = vbNo Then

> Cancel = True

> End If

> End If

> End Sub

> CSS Stylesheet Sampler Script
> http://www.eggheadcafe.com/tutorial...0-64466ee722bc/css-stylesheet-sampler-sc.aspx
 
S

Shreekanth Murali

example please

Can you please guide me by giving me an example how to use this.... I am sorry i need to agree that i have just started to learn... i need your help please... we are gonna apply this for our people in my company...

Dmitry Streblechenko wrote:

Instead of using To/CC/BCC properties, loop through all the recipients inthe

18-Dec-09

Instead of using To/CC/BCC properties, loop through all the recipients in

the MailItem.Recipients collection.

Dmitry Streblechenko (MVP)

-

<Shreekanth Murali> wrote in message

Previous Posts In This Thread:

ASP.NET Digest Authentication Against Database

http://www.eggheadcafe.com/tutorial...af-8a9a5c91c0d6/aspnet-digest-authentica.aspx
 
S

Shreekanth Murali

item.recipients.Count

item.recipients.Count gives me number of recipients in the mail. How can i get the details of that . What should i user.

eg: I have three email address in to field and for testing purpose i wrote msgbox(item.recipients.count)

and this gave me 3 in the msgbox. Now how can get the recipients? i can create a loop but what property should i use to extract this ?

iam using O2k3

Shreekanth Murali wrote:

example please

19-Dec-09

Can you please guide me by giving me an example how to use this.... I am sorry i need to agree that i have just started to learn... i need your help please... we are gonna apply this for our people in my company...

Previous Posts In This Thread:

Toward Viable CAPTCHA Alternatives

http://www.eggheadcafe.com/tutorial...c-a34cd08623e8/toward-viable-captcha-alt.aspx
 
S

Shreekanth Murali

I Found it -->item.recipients.item(i).AddressEntry

Hey I found it

its item.recipients.item(i).AddressEntry

THANKS A LOT FOR YOUR INFORMATION.

Shreekanth Murali wrote:

item.recipients.Count

20-Dec-09

item.recipients.Count gives me number of recipients in the mail. How can i get the details of that . What should i user.

eg: I have three email address in to field and for testing purpose i wrote msgbox(item.recipients.count)

and this gave me 3 in the msgbox. Now how can get the recipients? i can create a loop but what property should i use to extract this ?

iam using O2k3

Previous Posts In This Thread:

axWebBrowser1.Navigate Auto Page Loader In A Real Browser

http://www.eggheadcafe.com/tutorial...4f-4a6dbf0c2d91/axwebbrowser1navigate-au.aspx
 
Status
Not open for further replies.
< Macro for Viewing mails one after the other in the Reading Pane | VBA Procedure (or Macro) to Stop Outlook from Closing? >
Similar threads
Thread starter Title Forum Replies Date
C Eliminate need for "Enable Macro" selection Outlook VBA and Custom Forms 7
M Use Macro to change account settings Outlook VBA and Custom Forms 0
J Macro to Reply to Emails w/ Template Outlook VBA and Custom Forms 3
C Outlook - Macro to block senders domain - Macro Fix Outlook VBA and Custom Forms 2
Witzker Outlook 2019 Macro to seach in all contact Folders for marked Email Adress Outlook VBA and Custom Forms 1
S macro error 4605 Outlook VBA and Custom Forms 0
A Macro Mail Alert Using Outlook 4
J Outlook 365 Outlook Macro to Sort emails by column "Received" to view the latest email received Outlook VBA and Custom Forms 0
J Macro to send email as alias Outlook VBA and Custom Forms 0
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro GoTo user defined search folder Outlook VBA and Custom Forms 6
D Outlook 2016 Creating an outlook Macro to select and approve Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to send an Email Template from User Defined Contact Form Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to check Cursor & Focus position Outlook VBA and Custom Forms 8
V Macro to mark email with a Category Outlook VBA and Custom Forms 4
M Outlook 2019 Macro not working Outlook VBA and Custom Forms 0
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
Geldner Send / Receive a particular group via macro or single keypress Using Outlook 1
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 21
V Macro to count flagged messages? Using Outlook 2
sophievldn Looking for a macro that moves completed items from subfolders to other subfolder Outlook VBA and Custom Forms 7
S Outlook Macro for [Date][Subject] Using Outlook 1
E Outlook - Macro - send list of Tasks which are not finished Outlook VBA and Custom Forms 3
E Macro to block senders domain Outlook VBA and Custom Forms 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
N Line to move origEmail to subfolder within a reply macro Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Macro to answer a mail with attachments Outlook VBA and Custom Forms 2
A Outlook 2016 Macro to Reply, ReplyAll, or Forward(but with composing new email) Outlook VBA and Custom Forms 0
J Macro to Insert a Calendar Outlook VBA and Custom Forms 8
W Macro to Filter Based on Latest Email Outlook VBA and Custom Forms 6
T Macro to move reply and original message to folder Outlook VBA and Custom Forms 6
D Autosort macro for items in a view Outlook VBA and Custom Forms 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
A Macro to file emails into subfolder based on subject line Outlook VBA and Custom Forms 1
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
S Visual indicator of a certain property or to show a macro toggle Outlook VBA and Custom Forms 2
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
S Macro to extract and modify links from emails Outlook VBA and Custom Forms 3
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
S Macro for Loop through outlook unread emails Outlook VBA and Custom Forms 2
Globalforester ItemAdd Macro - multiple emails Outlook VBA and Custom Forms 3
S Macro to extract email addresses of recipients in current drafted email and put into clipboard Outlook VBA and Custom Forms 2
Witzker HowTo start a macro with an Button in OL contact form Outlook VBA and Custom Forms 12
Witzker Macro to move @domain.xx of a Spammail to Blacklist in Outlook 2019 Outlook VBA and Custom Forms 7
S Macro for other actions - Outlook 2007 Outlook VBA and Custom Forms 23
C Macro to extract sender name & subject line of incoming emails to single txt file Outlook VBA and Custom Forms 3
L Macro/VBA to Reply All, with the original attachments Outlook VBA and Custom Forms 2
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0

Similar threads

Top