www.Cursuri-Excel.ro     www.Cursuri-Access.ro     www.Cursuri-Powerpoint.ro     www.Cursuri-Outlook.ro     www.Cursuri-Word.ro     www.CursuriProject.ro    

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

Transformare Automata a unui mail in meeting

Mesajde 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!
kissmady21
 
Mesaje: 4
Membru din: Vin Aug 19, 2011 3:41 pm

Re: Transformare Automata a unui mail in meeting

Mesajde 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)
Dr.Windows
Site Admin
Site Admin
 
Mesaje: 4496
Membru din: Vin Iul 31, 2009 7:32 am


Înapoi la Intrebari despre Outlook 2013

Cine este conectat

Utilizatorii ce navighează pe acest forum: Niciun utilizator înregistrat şi 1 vizitator