שאלה נוספת דחופה...

לא מזמן שאלתי על קישור לcontact באאוטלוק,והצלחתי לעשות זאת.

הבעיה היא, שאני אמורה לשלוף את כל השדות על כל איש קשר.

כלומר (שם,טלפון בבית,טלפון בעבודה וכדו')

אני עושה את זה ע"י שהגדרתי אובייקט item

כלומר:

בלולאה על כל הitems שיש בתקיה

Dim ContactFolder As Object

Dim objItem As ContactItem

Dim Name As String

Dim Company As String

(Set objItem = ContactFolder.Items(i

לדוגמא עבור שם וחברה-

Name = objItem.FullName

Company = objItem.CompanyName

הבעיה כזו:

יש שדה מסוים שאני לא מצליחה להגיע אליו בשום אופן.

זה הריבוע הגדול להערות שיש בכל איש קשר.

אם תפתחו איש קשר חדש תוכלו לראות את זה בצד ימין למטה בצורה בולטת.

איך מגיעים לשדה הזה???אני מתחרפנת! :kopfpatsch: