Jump to content

Avisos en outlock


Recommended Posts

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

    • Hola a ambos, @gonzalomadrid, en Word de M365 sí funciona. Basta con que escribas =rand() para que te aparezca el texto. Si eliges =rand(2,3) te aparecerá un texto con 2 párrafos y 5 operaciones. En Excel, hasta donde yo sé, es diferente. Tal como te comenta @Abraham Valencia, dispones de =ALEATORIO() y =ALEATORIO.ENTRE() para generar números aleatorios. El propio 'Help' de Excel explica muy bien argumento y sintaxis de ambas funciones. Saludos,  
    • Hola, descargar mejor la versión (2). Saludos. MImgUrl(2).xlsm
    • Hola Medio enredado lo que escribes, pero creo que en realidad lo que buscas es ALEATORIO.ENTRE o RANDBETWEEN si usas Excel en inglés.    
    • Muchas gracias a todos por sus aportes, me han resultado de mucha utilidad, al final lo pude resolver utilizando temporalmente la funcion de reemplazar para sacar la operacion requerida y despues de eso lo volvi a dejar como estaba. Un saludo para todos
    • aquel famoso - y antiguo-    = Rand (8,5)   ¿funciona en    en excel 2019? y de paso ¿funciona en word 2019 y demás office? A mi no me funciona ni a tiros, ni ese ni   = Rand () ni Lorem Ipsum() ni nada parecido para meter texto dummy o aleatorio. ¿alguien  sabe algo?  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy