RE: Ole CDO woes

[Herold Heiko]

Title: RE: Ole CDO woes

Update:

the same thing from vbscript has the same problems:

 

Const CdoPR_TRANSMITABLE_DISPLAY_NAME_A = &H3A20001E
Const CdoPR_PRIMARY_FAX_NUMBER = &H3A23001E
Set cdo = CreateObject("MAPI.Session")
cdo.Logon "", "", 0, 0, 0
Set addrlists = cdo.AddressLists
For C = 1 To addrlists.Count
    If addrlists.Item(C).Name = "Global Address List" Then
        Set gal = addrlists.Item(C)
        Exit For
    End If
Next
If gal Is Nothing Then
    MsgBox "Gal is nothing"
    Exit Sub
Else
    Set addrentries = gal.AddressEntries
    Set addrentry = addrentries.GetFirst
    Do While Not addrentry Is Nothing
        Set thefields = addrentry.Fields
        If thefields.Item(CdoPR_TRANSMITABLE_DISPLAY_NAME_A).Value = "SomeAccount" Then
            Exit Do
        End If
        Set addrentry = addrentries.GetNext
    Loop
    ' thefields.Item(CdoPR_BUSINESS_TELEPHONE_NUMBER).Value = "123"
    ' thefields.Item(CdoPR_PRIMARY_FAX_NUMBER).Value = "456"

    thefields.Item(CdoPR_BUSINESS_TELEPHONE_NUMBER).Delete
    thefields.Item(CdoPR_PRIMARY_FAX_NUMBER).Delete
    addrentry.Update
End If

Only difference: now appareantly (from vbscript OR perl) setting those fields to any string does work, didn't change anything.

I'm taking this thing to a exchange list since appareantly the problem is cdo, not perl related.

I'll post the solution if I find any.

Heiko

--
-- PREVINET S.p.A.            [EMAIL PROTECTED]
-- Via Ferretto, 1            ph  x39-041-5907073
-- I-31021 Mogliano V.to (TV) fax x39-041-5907472
-- ITALY