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.
 
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.
 
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.
 
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
 
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.
 
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
P Email address auto-completes work fine on laptop, but no longer on desktop Using Outlook 2
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
H Copying email address(es) in body of email and pasting in To field Outlook VBA and Custom Forms 1
A Search folder and move the email Outlook VBA and Custom Forms 0
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
D Delete selected text in outgoing email body Outlook VBA and Custom Forms 0
F Graphics in email / Mac recipient garbled Using Outlook 0
D Outlook VBA forward the selected email to the original sender’s email ID (including the email used in TO, CC Field) from the email chain 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
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
S Email Macros to go to a SHARED Outlook mailbox Draft folder...NOT my personal Outlook Draft folder Using Outlook 2
R Outlook 365 VBA AUTO SEND WITH DELAY FOR EACH EMAIL Outlook VBA and Custom Forms 0
G Print email attachments when hit subfolder Outlook VBA and Custom Forms 1
C Spam Email? Using Outlook 2
G Automatically delete email when a condition is met Outlook VBA and Custom Forms 1
E Save Selected Email Message as .msg File - digitally sign email doesn't works Outlook VBA and Custom Forms 1
S Email was migrated from GoDaddy to Microsoft exchange. We lost IMAP ability Exchange Server Administration 1
R Outlook 365 How to integrate a third-party app with Outlook to track email and sms? Using Outlook 2
S Paperclip icon shows without attachment in email under Sent folder Using Outlook 0
B Outlook 2019 Automatically move email after assigning category Using Outlook 4
Rupert Dragwater How to permanently remove an email address Using Outlook 9
K vba code to auto download email into a specific folder in local hard disk as and when any new email arrives in Inbox/subfolder Outlook VBA and Custom Forms 0
F Auto changing email subject line in bulk Using Outlook 2
F Want to add second email to Outlook for business use Using Outlook 4
kburrows Outlook Email Body Text Disappears/Overlaps, Folders Switch Around when You Hover, Excel Opens Randomly and Runs in the Background - Profile Corrupt? Using Outlook 0
J Outlook 365 Outlook Macro to Sort emails by column "Received" to view the latest email received Outlook VBA and Custom Forms 0
A Outlook 2019 Help with forwarding email without mentioning the previous email sender. Outlook VBA and Custom Forms 0
J Macro to send email as alias Outlook VBA and Custom Forms 0
M Shift Delete doesn't delete email from server Using Outlook 3
K Incorporate selection from combobox into body of email Outlook VBA and Custom Forms 0
L Why are some email automatically going to "archive" Using Outlook 2
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
B Outlook 2019 Custom Email form - Edit default email form Outlook VBA and Custom Forms 6
F Add a category before "Send an Email When You Add an Appointment to Your Calendar" Outlook VBA and Custom Forms 0
T Problem when requesting to view an email in a browser Using Outlook 0
J Outlook 365 Forward Email Subject to my inbox when new email arrive in shared inbox Using Outlook 0
HarvMan Archive Email Manually Using Outlook 1
L Fetch, edit and forward an email with VBA outlook Outlook VBA and Custom Forms 2
S New Email "From" box stopped working Using Outlook 0
Rupert Dragwater Duplicate email in Folder Using Outlook 7
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
W Outlook 365 I am getting the "Either there is no default mail client" error when I try to send an email on excel Office 365 Using Outlook 1
MattC Changing the font of an email with VBA Outlook VBA and Custom Forms 1
L Specific Incoming Email Address Immediately Deleted Using Outlook 2
Witzker Outlook 2019 Macro to send an Email Template from User Defined Contact Form Outlook VBA and Custom Forms 0
Witzker Outlook 2019 Edit contact from email does not open the user defined contactform Using Outlook 3
V Macro to mark email with a Category Outlook VBA and Custom Forms 4
R Roadrunner Email Settings | Contact Roadrunner Customer Support Outlook VBA and Custom Forms 0
D Gmail mail is being delivered to a different email inbox in Outlook App 2021 Using Outlook 2

Similar threads

Back
Top