Caros amigos,

Tenho uma lista de 150 emails (.eml) e preciso importar para o MS-Access XP.

Preciso montar uma tabela com o texto das mensagens sendo um dos campos.

Como devo proceder ?
Obrigado.

Marcio

Abra o arquivo como se fosse um arquivo normal, basta vc estudar os parâmetros q ele tem.

 

Veja uma rotina:

 

 

Private Sub cmdBuscarEml_Click()
  Dim CaminhoArquivo As String
  Dim NumArquivoLivre
  Dim BufferCarregado
 
  comArquivo.FileName = ""
  comArquivo.ShowOpen
  CaminhoArquivo = ""
  CaminhoArquivo = comArquivo.FileName
 
  If Len(CaminhoArquivo) <> 0 Then
    If Len(Dir(CaminhoArquivo)) = 0 Then
      MsgBox "Arquivo não encontrado!", vbCritical, App.ProductName
    Else
      NumArquivoLivre = FreeFile
     
      Open CaminhoArquivo For Input As #NumArquivoLivre ' ABRE O ARQUIVO PARA LEITURA
     
      Do While Not EOF(NumArquivoLivre)
        Line Input #NumArquivoLivre, BufferCarregado
      Loop
       
     
      Close #NumArquivoLivre
    End If
  Else
    MsgBox "Não foi possível carregar o Arquivo!", vbCritical, App.ProductName
  End If
End Sub