announce email sender and subject when new email arrives...

Status
Not open for further replies.

Sdecker

Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
I need a macro or script that will announce (speak) the sender and subject of new email when it arrives. Could be a general macro that could then be applied by rules. I saw that this is possible with mac so I am sure that it can be created for Windows as well. Any and all help would be greatly appreciated.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Thanks Michael, you know that now I need to try it....

This is so cool. :) (Yes, I'm easily amused this morning and this beats working.)

Code:
Sub readsubject()
Dim objItem As MailItem
Dim xlApp As Object
Set objItem = Application.ActiveExplorer.Selection.Item(1)
Set xlApp = CreateObject("Excel.application")
xlApp.Speech.Speak objItem.SenderName & objItem.Subject
Set xlApp = Nothing
End Sub

I think it might be too slow, especially if you get more than one or two messages at a time - here it takes (what feels like) a couple of seconds to load - it's probably not that long, it just feels slow.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
I set this up in a rule (with early binding) and while it's (still) cool, Outlook basically hangs during the few seconds that it takes to load excel and read the sender & subject. i think i got it working a little faster by opening excel on my desktop, but outlook will hang when its reading - not bad for short subjects but long display names and/or long subjects are a problem. if you aren't working in Outlook, then its not a problem.

I'm going to try this for reminders - I'm constantly missing meetings because the reminder dialog is not in my face.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Thank you SDecker for the idea and Michael for the solution... I needed something fun to write about today and this is it - a talking reminder. :)

Now i just gotta remember to keep the sound turned up enough to hear it.

Code:
Private Sub Application_Reminder(ByVal Item As Object)
If Item.MessageClass <> "IPM.Appointment" Then
  Exit Sub
End If
Dim xlApp As Excel.Application
Set xlApp = Excel.Application
    xlApp.Speech.Speak Item.Subject & "Starts at " & Format(Item.Start, "hh:mm")
Set xlApp = Nothing

End Sub
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
yep, it's really cool :)

This shoud be faster as it keeps the ref on xl:

Code:
private xlApp as excel.application
private sub application_startup()
  set xlApp=new excel.application
end sub
The variable is set to Nothing automatically when you close Outlook.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
adding the async parameter to the code helps a lot - if only because it doesn't cause outlook to hang once it starts talking.
xlApp.Speech.Speak Item.Subject & "Starts at " & Format(Item.Start, "hh:mm"), true
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
e_a_g_l_e_p_i Outlook 2010 How to set default email address for website links Using Outlook 3
O Same email address, same person, names in so many ways Using Outlook 4
D Create new email from the received Email Body with attachment Outlook VBA and Custom Forms 10
D Outlook launch email showing new unread email in reading pane Using Outlook 8
B Zoom automatically next email item (VBA) Outlook VBA and Custom Forms 2
K Outlook adds space to rows in HTML email signatures viewed on mobile Using Outlook 1
M HTML email signature in Outlook Using Outlook 1
M Respond to Outlook Email Outlook VBA and Custom Forms 0
U Outlook locking up when replying to Email Using Outlook 7
S Email Generated from another program and then edited sends original email. Using Outlook 2
G Forward email body to other mail list directly from Exchange server Exchange Server Administration 1
S Unable to extract text from an Outlook email message Using Outlook 2
T Original email text not shown when replying or forwarding the email. Using Outlook 6
H Search Email Header for Content Type Outlook VBA and Custom Forms 1
A VBA Script - Print Date between first email in Category X and last email in Category Y Outlook VBA and Custom Forms 3
R Problem moving file “Email folders.pst” to new PC Using Outlook 5
P Sending email from outlook IMAP to GMAIL where embedded images are added as attachment Using Outlook 1
D auto forward base on email address in body email Outlook VBA and Custom Forms 0
P How did hacker cause link to delete and archive containing email? Using Outlook 6
I 'quote marks' around email name Using Outlook 1
N contact list seen in Contact folder but knot in Address book or when 'TO' button is clicked in new email Using Outlook 0
T Junk Email does not get added to the Blocked Sender List Using Outlook 0
P i-Phone 6s Plus receiving 2 notifications from Outlook email Using Outlook 1
C WARNING - DO NOT USE AN OUTLOOK.COM ADDRESS FOR GOOGLE ACCOUNT RECOVERY EMAIL Using Outlook 10
T Why is every new email pinned (to keep it on top)? Windows 10 Using Outlook 6
M Outlook, send to > mail recipient - results in plain text email Using Outlook 1
P Can I create a Rule that sends me an email when I get a Task? Using Outlook 3
M Issue transferring Outlook 2016 email accounts & settings onto new computer Using Outlook 8
R Auto Assign Category colours to Incoming Emails based on whom the email is addressed Outlook VBA and Custom Forms 3
S Outlook email to configure setup for each mail Outlook VBA and Custom Forms 1
S Macro to extract email addresses of recipients in current drafted email and put into clipboard Outlook VBA and Custom Forms 2
A Is there an ID field you can use to pair a reply to the sent email? Outlook VBA and Custom Forms 4
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
M How create a Rule to filter sender's email with more that one @ sign Using Outlook 1
A Prepending Email Addrs with "Display Name <email>" Has Stopped Working Using Outlook 0
Bering Forward selected email without the original email appended Outlook VBA and Custom Forms 0
Aussie Rules Run a Script on an Incoming Email OK and then the Email reverts Outlook VBA and Custom Forms 0
W Reply to email Using Outlook 4
F Junk Email does not get added to the Blocked Sender List Using Outlook 4
B disappearing original when attach to email Using Outlook 1
W September 2020 - No Default Email Client message after Office Update Using Outlook 1
glnz O365 - How to combine the Inboxes for four email accounts into a single Inbox Using Outlook 7
glnz O365 - How to send from acct 2 but showing email name from acct 1 as From - alias? Using Outlook 0
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0
D Move Email with Attachment to Folder Outlook VBA and Custom Forms 3
E Asking user to select multiple options in a list in an email Outlook VBA and Custom Forms 0
K Use VBA to find Sender and Recipient from Microsfot 365 Journaled Email Items Outlook VBA and Custom Forms 3
B Add ComboBox Value to Body of Email Outlook VBA and Custom Forms 1
A Backup Email Accounts On OutLook For Mac 2016 (Microsoft 365 subscription version) Using Outlook 0
F VBA code to dock Styles whenever I write or edit an email Outlook VBA and Custom Forms 0

Similar threads

Top