[Resolvido]Importar Dados para Campos Booleanos

Boa tarde, amigos.

Estou usando uma rotina para importar as mensagens do Outlook para o Access 2007 e o processo tem funcionado muito bem.

Só que há um campo booleano (sim/não) que é o que informa se o e-mail possui anexos. Tenho tentado importar os dados da mesma forma que importo os outros campos, porém não tem funcionado, pois desconheço o nome certo do mesmo. Pelas pesquisas e tentativas que fiz, o nome dele é "HasAttachments", ou "HasAttachment", mas a importação não funciona.

Alguém poderia me informar se por ser um campo "não-texto" e sim booleano, existe alguma diferença no modo de importar este tipo de dados?

Desde já, agradeço pela atenção.

(abaixo segue parte do código que estou a utilizar)


Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim intCounter As Integer

Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")

adoConn.Open "DSN=OutlookData;"
adoRS.Open "SELECT * FROM email", adoConn, adOpenDynamic, adLockOptimistic

For intCounter = objFolder.Items.Count To 1 Step -1

With objFolder.Items(intCounter)

If .Class = olMail Then

adoRS.AddNew
adoRS("Subject") = .Subject
adoRS("entryid") = .EntryID
adoRS("FromName") = .SenderName
adoRS("FromAddress") = .SenderEmailAddress
adoRS("Anexos") = .HasAttachments
adoRS.Update

End If
End With
Next

Alguém...?

Boa tarde, gumz

O que fiz foi confirmar se HasAttachments é o nome do campo e verifiquei que ... veja aqui http://msdn.microsoft.com/en-us/library/aa580961(v=exchg.140).aspx