outlook automation

[iknowu99]

i would like to respond to specific emails automatically right away.

so if fakeJayfake@fakegmail.com sends me an email, respond right away with "Hi Jay right now is " & time.

Something simple like so. Thanks World

 

[Smitty]

See:

Auto Reply Manager.

Automatically reply to messages while out of the office.

E-mail Responder.

HTH,

 

[iknowu99]

Thanks Smitty!

I've actually made the following, only can't figure out how to check whether the message is new or not?? for now it goes through all the emails in the inbox

Option Explicit

Private Sub Application_NewMail()
DoEvents
Call UPDATEMYMAIL
End Sub

Sub UPDATEMYMAIL()
Dim oNS As NameSpace
Dim oFL As Outlook.MAPIFolder
Dim oMI As MailItem
Dim strABC As String

Dim oNewMail As Object

Set oNS = Outlook.GetNamespace("MAPI")
Set oFL = oNS.Folders("Mailbox - Michael").Folders("Inbox")



For Each oMI In oFL.Items

'## here test whether the email is new - but how ??

'strABC = oMI.ReceivedTime
strSenderEmailAddress = oMI.SenderEmailAddress

    If strSenderEmailAddress = "michaelTEST@gmail.com" Then
    
        If InStr(oMI.Body, "est") > 0 Then
        
        'Create a Reply template
            Set oNewMail = oMI.ReplyAll
            
            With oNewMail
                
                'Change the subject
                .Subject = oNewMail.Subject
                
                'Change the body
                .Body = "Michael got it. Thanks."
                .Send
            
            End With
        
        End If
    
    'ElseIf strSenderEmailAddress = blank2 Then
    
    'ElseIf strSenderEmailAddress = blank2 Then
    
    Else
    
    End If
    
Next oMI

Set oFL = Nothing
Set oNS = Nothing
End Sub

 

[Smitty]

Sorry, it's been years since I did any Outlook programming. Have you checked Ron DeBruin's site? He's the Outlook guy.

 

[DonkeyOte]

I believe you can use the GetLast method to find the last email in the folder.

Set oMI = oFL.Items.GetLast

So the above should assign the mail item variable oMI to be the last email received in the predefined folder.

You can then dispose of the For Each loop and just work with oMI.

 

[iknowu99]

that last part is not doing it: for some reason it depends on how the mails are sorted and usually takes the last one from the bottom. Perhaps theres a way to identify emails that have not been read, and read them with this macro. afterwhich mark them 'read' status?

 

[DonkeyOte]

see method 2 here: http://www.outlookcode.com/article.aspx?id=62 -- obviously your subsequent code in the ItemAdd event needs to be different but the basics are there for you... it does work -- I tested a variation.