[dba-Tech] Cycling through Outlook Items using VBA

Thanks Marty -- you might be right -- I'll take a look. 

Susan H. 

Usually the error I see here is

adoRS("CCName") = .CCName
.CCName is Null and
adoRS("CCName")doesn't allow Nulls

in the table field

Occassionally on some models like WMI but not Outlook .CCName is defined as
an array rather than a string
adoRS("CCName") = .CCName(0)
so you pass the start of the null terminated array



Susan Harkins wrote:

>Marty, I'm using code. Here's what I'm currently using and it works 
>fine, but I am confused about a few things:
>
> For intCounter = objFolder.Items.Count To 1 Step -1
>  
>  '-----
>  'database and table can be open, but records won't show  'up until 
> you close and reopen table.
>  '-----
>  
>   With objFolder.Items(intCounter)
>    If .Class = olMail Then
>      adoRS.AddNew
>      adoRS("Subject") = .Subject
>      adoRS("Body") = .Body
>      adoRS("FromName") = .SenderName
>      adoRS("ToName") = .To
>      'adoRS("FromName") = .FromName
>      'adoRS("FromAddress") = .FromAddress
>      'adoRS("FromType") = .FromType
>'      adoRS("ToName") = .ToName
>'      adoRS("ToAddress") = .ToAddress
>'      adoRS("ToType") = .ToType
>'      adoRS("CCName") = .CCName
>'      adoRS("CCAddress") = .CCAddress
>'      adoRS("CCType") = .CCType
>'      adoRS("BCCName") = .BCCName
>'      adoRS("BCCAddress") = .BCCAddress
>'      adoRS("BCCType") = .BCCType
>'      adoRS("Importance") = .Importance
>'      adoRS("Sensitivity") = .Sensitivity
>      adoRS.Update
>     End If
>    End With
>   Next
>
>
>First, I simply can't get a For Each right -- I'm sure that's my 
>misunderstanding of the object model. I'd also rather use a second For 
>Each to cycle through all the current mail item's "fields" -- but can't 
>get that either. I tried to hard code them, but most throw an error -- 
>as you can see by the comment out lines.
>
>To learn the field names, I used the export wizard to create a target 
>database. I used the resulting table field names, but apparently, they 
>don't match Outlook's internal names -- that just doesn't make good sense
to me.
>:( Does anyone know of a link that maps Outlook's internal field names? 
>I'm totally lost.
>
>Susan H. 
>
>Here is a sample of code. You'll need
>to modify it to accomplish what you want exactly.
>'From:         "siebeneck yon (slc1yps)" <slc1yps at UPS.COM>
>Public Function ReadMail()
>
>
>  
>

--
Marty Connelly
Victoria, B.C.
Canada

_______________________________________________
dba-Tech mailing list
dba-Tech at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/dba-tech
Website: http://www.databaseadvisors.com

No virus found in this incoming message.
Checked by AVG Free Edition. 
Version: 7.5.476 / Virus Database: 269.10.4/898 - Release Date: 2007/07/12
04:08 PM