עמוד הבית

אתה יכול להתקשר למספר הטלפון של שירות הלקוחות והתמיכה הטכנית של מיקרוסופט, זה מספר הטלפון והפקס של המרכז.

נשמח לסייע גם טלפונית.

שלום,

איך אני מוסיף אובייקט של outlook msg לאקסל ?

הצלחתי לעשות את זה אבל אני צריך שיציג לי ויזואלית את הפורמט של הודעה באקסל ולא קובץ שאני לוחץ עליו ואז הוא נכנס לי להודעה

אנו לא מצליחים ליצור דף רקע קבוע עם הלוגו של החברה באאטלןק 2007.

כל הנביונות לשינוי או עיצוב תבנית אישית מותאמת,לא הצליחו וגם לא הצלנו לאתר פתרון באינטרנט.

האם בכלל ניתן לערוך את התבנית האישית באאטלוק 2007?

אייל

שלום ,

יש לי קובץ אקסל עם עמודת משימות ועמודת תאריך .

איך אני יוצרת תזכורות לאאוטלוק מהתאריכים המופיעים בקובץ ??

מצאתי באינטרנט תוכנית אבל היא לא עבדה חלק :

נשלחו אין סוף תזכורות ואם סגרתי ופתחתי שוב את הקובץ כבר לא הופיע לי שוב הפונקציה

אשמח לעזרה - noamko@windowslive.com

זו התוכנית :

Function AddToTasks(strDate As String, strText As String, DaysOut As Integer) As Boolean

' Adds a task reminder to Outlook Tasks a specific number of days before the date specified

' Returns TRUE if successful

' Will not trigger OMG because no protected properties are accessed

' by Jimmy Pena, www.codeforexcelandoutlook.com, 10/30/2008

'

' Usage:

' =AddToTasks("12/31/2008", "Something to remember", 30)

' or:

' =AddToTasks(A1, A2, A3)

' where A1 contains valid date, A2 contains task information, A3 contains number of days before A1 date to trigger task reminder

'

' can also be used in VBA :

'If AddToTasks("12/31/2008", "Christmas shopping", 30) Then

'  MsgBox "ok!"

'End If

Dim intDaysBack As Integer

Dim dteDate As Date

Dim olApp As Outlook.Application

Dim objTask As Outlook.TaskItem

' make sure all fields were filled in

If (Not IsDate(strDate)) Or (strText = "") Or (DaysOut <= 0) Then

 AddToTasks = False

 GoTo ExitProc

End If

' We want the task reminder a certain number of days BEFORE the due date

' ex: if DaysOut = 120, then we want the due date to be -120 before the date specified

' we need to pass -120 to the NextBusinessDay function, so to go from 120 to -120,

' we subtract double the number (240) from the number provided (120).

' 120 - (120 * 2); 120 - 240 = -120

intDaysBack = DaysOut - (DaysOut * 2)

dteDate = NextBusinessDay(CDate(strDate), intDaysBack)

On Error Resume Next

 Set olApp = GetOutlookApp

On Error GoTo 0

If Not olApp Is Nothing Then

 Set objTask = olApp.CreateItem(3)  ' task item

 With objTask

   .StartDate = dteDate

   .Subject = strText & ", due on: " & strDate

   .ReminderSet = True

   .Save

 End With

Else

 AddToTasks = False

 GoTo ExitProc

End If

' if we got this far, it must have worked

AddToTasks = True

ExitProc:

If bWeStartedOutlook Then

 olApp.Quit

End If

Set olApp = Nothing

Set objTask = Nothing

End Function

Function NextBusinessDay(dteDate As Date, intAhead As Integer) As Date

' from Sue Mosher's book "Microsoft Outlook Programming"

Dim dteNextDate As Date

dteNextDate = DateAdd("d", intAhead, dteDate)

Select Case Weekday(dteNextDate)

' if Sunday, add 1 day to make it next business day (Monday)

  Case 1

       dteNextDate = dteNextDate + 1

' if Saturday, add 2 days to make it next business day (Monday)

  Case 7

       dteNextDate = dteNextDate + 2

End Select

NextBusinessDay = dteNextDate

End Function

Function GetOutlookApp() As Object

On Error Resume Next

 Set GetOutlookApp = GetObject(, "Outlook.Application")

 If Err.Number <> 0 Then

   Set GetOutlookApp = CreateObject("Outlook.Application")

   bWeStartedOutlook = True

 End If

On Error GoTo 0

End Function