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!
Transformare Automata a unui mail in meeting
-
- Mesaje: 4
- Membru din: Vin Aug 19, 2011 3:41 pm
-
- Moderator
- Mesaje: 4570
- Membru din: Vin Iul 31, 2009 7:32 am
Re: Transformare Automata a unui mail in meeting
Se poate cu un cod VBA care sa fie executat apoi automat de catre o regula.
Codul ar putea fi urmatorul:
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)
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 mai multe proprietati posibile: AppointmentItem Object (Outlook)