Avisos en outlock

[Zbrais]

Buenas, tengo un listado de cumpleaños de mi trabajo y debo desearles felicidades en su día pero no se como exportar esa lista a Outlook

[JesusGarcia]

Zibras,

Te paso el código de un procedimiento para agregar un recordatorio en Outlook

Sub AddOutlookCalendar(pEntry As OutlookEntry, pSubject As String, pBody As String, pDate As Variant)
Dim oOutlook As Object
Dim oApp As Object
'Dim a As AppointmentItem


    ' Create the Outlook session
    Set oOutlook = CreateObject("Outlook.Application")
    ' Create the AppointmentItem
    Set oApp = oOutlook.CreateItem(1)
    ' Set the appointment properties
    oApp.Location = ""
    oApp.Start = Format(pDate, "mm/dd/yyyy") & " 10:00"
    oApp.End = Format(pDate, "mm/dd/yyyy") & " 10:15"
    oApp.Duration = 1
    oApp.BusyStatus = 0
    oApp.ReminderSet = True
    oApp.ReminderMinutesBeforeStart = 1
    oApp.Subject = psbject
    oApp.Body = pBody

    oApp.Save

    Set oApp = Nothing
    Set oOutlook = Nothing
End Sub

Tienes que entrar al editor de VBA presionando Alt+F11, una vez ahí, insertas un módulo de VB... Para poder usarla necesitarías saber algo de programación en VBA o VB para crear un ciclo que recorra toda tu lista de contactos y por cada uno ejecute el procedimiento que te envié... Es muy sencillo, pero si no tienes experiencia en programación va a estar complicado

[Zbrais]

Entonces va a estar complicado je je je pero muchas gracias