Transformare Automata a unui mail in meeting

Ce este nou in Microsoft Outlook 2013?
Informatii despre cum se utilizeaza Microsoft Outlook 2013
Gestionare Inbox, Scriere/Trimitere email-uri, Colaborare, etc
Închis
kissmady21
Mesaje: 4
Membru din: Vin Aug 19, 2011 3:41 pm

Transformare Automata a unui mail in meeting

Mesaj de kissmady21 » Joi Iun 25, 2015 3:03 pm

Buna ziua,

Doresc sa realizez un cod VBA/macro prin intermediul caruia anumite mesaje primite in Inbox sa se duca automat in calendar (fara ca eu sa folosesc metoda "drag & drop" sau sa-mi setez manual Meeting-ul). Se poate asa ceva? Orice alta modalitate de a efectua aceasta operatie automat este bienvenita! Multumesc frumos!

Dr.Windows
Moderator
Moderator
Mesaje: 4570
Membru din: Vin Iul 31, 2009 7:32 am

Re: Transformare Automata a unui mail in meeting

Mesaj de Dr.Windows » Vin Iul 17, 2015 4:52 pm

Se poate cu un cod VBA care sa fie executat apoi automat de catre o regula.

Codul ar putea fi urmatorul:

Cod: Selectaţi tot

Sub ConvertMail2Meeting(Item As Outlook.MailItem)

    Dim objMeeting As Outlook.AppointmentItem
    Set objMeeting = Application.CreateItem(olAppointmentItem)
    
    With objMeeting
        .MeetingStatus = olMeeting
        .Subject = Item.Subject
        .Start = Item.ReceivedTime + 2
        '.Start = #7/17/2015 8:30:00 PM#
        .Duration = 90
        .Body = Item.Body
        .Save
        
    End With
    Set objMeeting = Nothing
End Sub
Pentru data de start se poate folosi fie un numar de zile de la data receptionarii mesajului fie o data "fixa" introdusa manual (cum este linia comentata) ori calculata in diverse alte moduri...

Pentru mai multe proprietati posibile: AppointmentItem Object (Outlook)

Închis

Înapoi la “Intrebari despre Outlook 2013”