[Resolvido]Dúvidas no acess com CDO

Bom dia!!

Tenho o seguinte código, contudo não consigo anexar nenhum fixeiro (até tentei com o Attachments.Add, contudo dá erro de type mismatch....) será que me podiam ajudar??

O código que utilizei é:

Private Sub Comando7_Click()

Dim strMailto As String
Dim rst As DAO.Recordset
Dim strDestinatarios

Set rst = CurrentDb.OpenRecordset("emails")

Do Until rst.EOF
strDestinatarios = strDestinatarios & rst("email") & ";"
rst.MoveNext
Loop


Dim msg As Object
Set msg = CreateObject("CDO.Message")
msg.FROM = "pdsoft2013@gmail.com"
msg.To = Left(strDestinatarios, Len(strDestinatarios) - 1)
msg.Subject = "Olá é um teste!! Confirma se recebeste!!"
msg.TextBody = "CONFIRMAAAAAAA"
msg.Cc = ""
msg.bcc = ""
msg.replyto = "pdsoft2013@gmail.com"


msg.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
msg.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
msg.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "pdsoft2013@gmail.com"
msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pdsoft20122013"
msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

msg.configuration.Fields.Update
msg.Send
End Sub

Alguém me pode ajudar??

Obrigada

Ola seja bem vinda ao forum;

Talvez assim;


Private Sub Comando7_Click()

Dim strMailto As String
Dim rst As DAO.Recordset
Dim strDestinatarios

Set rst = CurrentDb.OpenRecordset("emails")

Do Until rst.EOF
strDestinatarios = strDestinatarios & rst("email") & ";"
rst.MoveNext
Loop


Dim msg As Object
Set msg = CreateObject("CDO.Message")
msg.FROM = "pdsoft2013@gmail.com"
msg.To = Left(strDestinatarios, Len(strDestinatarios) - 1)
msg.Subject = "Olá é um teste!! Confirma se recebeste!!"
msg.TextBody = "CONFIRMAAAAAAA"
msg.Cc = ""
msg.bcc = ""
msg.replyto = "pdsoft2013@gmail.com"
msg.AddAttachment ("file://c:\teste.txt")


msg.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
msg.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
msg.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "pdsoft2013@gmail.com"
msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pdsoft20122013"
msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
msg.configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

msg.configuration.Fields.Update
msg.Send
End Sub

Nova duvida novo tópico.

Sua ultima mensagem foi retirada daqui e aberto no tópico;

http://maximoaccess.forumeiros.com/t13305-retirar-informacao-de-pagina-na-net#102281

Este está Resolvido.