excel - reuniones - Crear citas de Outlook automáticamente

no me aparecen las citas en outlook

Question

Tengo una hoja de cálculo (excel 2003) que rastrea las fechas de vencimiento, me gustaría saber si hay una forma de tener estas fechas de vencimiento para crear citas (recordatorios) en outlook. La fecha de vencimiento está en un campo y el nombre de la entidad está en otra columna en la hoja de cálculo. Idealmente, me gustaría que Outlook (2003) recoja la fecha (obviamente) y el nombre de la entidad.

Gracias de antemano por cualquier ayuda

Answer 1

Puede usar macros de VBA para crear citas de look out. Siguiendo 2 enlaces lo ayudará a comenzar.

1. Creación de citas de perspectivas con VBA
2. Outlookcode

Answer 2

Puedes hacerlo a través de invitaciones a reuniones. No serían aceptados automáticamente, pero estarían allí. Las invitaciones a reuniones son solo correos electrónicos con elementos especiales en los encabezados.

Answer 3

Aquí hay un código de muestra.

Sub CreateCalEntry(LeadDate As Date, DueDate As Date, _
Subject As String, Location As String, _
Body As String, _
Optional AddToShared As Boolean = True)
''Lead date = expect notify from data''
''Due date - expect event due date''
''Add to shared - add item to shared calendar, ''
''hard coded as ''Shared Calendar''''
Const olApItem = 1
Dim apOL As Object ''Outlook.Application ''
Dim oItem As Object ''Outlook.AppointmentItem ''
Dim objFolder As Object ''MAPI Folder ''
Set apOL = CreateObject("Outlook.Application")
Set objFolder = GetFolder( _
"Public Folders/All Public Folders/Shared Calender")
Set oItem = apOL.CreateItem(olApItem)
With oItem
.Subject = Subject
.Location = Location
.Body = Body
If IsDate(LeadDate) Then
.Start = DueDate
Else
.Start = DueDate
End If
If AddToShared = True Then
.Move objFolder
End If
.Display
End With
Set oItem = Nothing
Set apOL = Nothing
End Sub
Public Function GetFolder(strFolderPath As String) As Object
'' strFolderPath needs to be something like ''
'' "Public Folders/All Public Folders/Company/Sales" or ''
'' "Personal Folders/Inbox/My Folder" ''
''This code is from:
''http://www.outlookcode.com/d/code/getfolder.htm ''
Dim apOL As Object ''Outlook.Application ''
Dim objNS As Object ''Outlook.NameSpace ''
Dim colFolders As Object ''Outlook.Folders ''
Dim objFolder As Object ''Outlook.MAPIFolder ''
Dim arrFolders() As String
Dim I As Long
strFolderPath = Replace(strFolderPath, "/", "/")
arrFolders() = Split(strFolderPath, "/")
Set apOL = CreateObject("Outlook.Application")
Set objNS = apOL.GetNamespace("MAPI")
On Error Resume Next
Set objFolder = objNS.Folders.Item(arrFolders(0))
If Not objFolder Is Nothing Then
For I = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(I))
If objFolder Is Nothing Then
Exit For
End If
Next
End If
Set GetFolder = objFolder
Set colFolders = Nothing
Set objNS = Nothing
Set apOL = Nothing
End Function

De: http://wiki.lessthandot.com/index.php/Create_Outlook_Appointment%2C_Shared_Folder