Code worked once only. then stopped.

  • Thread starter Thread starter Carol G
  • Start date Start date
C

Carol G

I am using Outlook 2000.



I am sure that this code worked once and then stopped working. It is meant
to update data to the outlook contactitem body from a button in an access
database. I check the outlook contact item and nothing is being transferred
into the body.

Any Ideas what I'm doing wrong?

Both strNameList and strNotes have the proper data in them.



Private Sub cmdOutlookExport_Click()



Dim strNameList as String

Dim strNotes as String



Dim fld As Outlook.MAPIFolder

Dim appOutlook As Outlook.Application

Dim nms As Outlook.NameSpace

Dim itms As Outlook.Items

Dim itm As Outlook.ContactItem



Set appOutlook = CreateObject("Outlook.Application")

Set nms = appOutlook.GetNamespace("MAPI")

Set fld = nms.GetDefaultFolder(olFolderContacts) 'Set what kind of folder

Set itms = fld.Items 'Outlook folder item



'Before being called Both strNameList and strNotes have the proper data in
them. This is 'checked in the For Each Loop below.





For Each itm In itms



If strNameList = itm.FullName Then

Debug.Print itm.FullName & " is found"

itm.Body = itm.Body & strNotes

Debug.Print itm.Body & " is itm.body"

End If

Next

MsgBox "Contact Updated Successfully"





Thanks

Carol
 
Do you mean? .Close (olSave)??
I am pretty new to outlook so I'm not sure if this is what you meant.
Thanks
Carol
 
Actually I was thinking more of itm.Save in the loop after you modify each
contact item.
 
Back
Top