[Resolvido]Envio de Arquivo

Ola AMigos ,

Bom gostaria mais uma vez da ajuda de vcs .. é o seguinte tenho um sistema de cadastro de alunos que funciona em mais de 1 unidade e o diretor me pediu que o sistema enviasse a ele uma listatem dos alunos de cada unidade dae eu pergunto pra vcs ... é possivel colocar um rotina dentro do sistema para que todo mes o sistema enviasse um arquivo txt para o email do diretor com os alunos cadastros ?

Forte abraço

Ola ,

Isso mesmo .. em cada escola tem o sistema e preciso enviar cada 1 para o email do diretor ..

COmo faço em PDF?

aBCS

Meu Access é 2003 e XP .

Abcs

norbs,

Mas no meu caso eu gostaria que o sistema enviasse precisar abrir o relatorio e gerar o pdf entendeu .. uma rotina pra criar o arquivo automaticamente e em seguida enviar por email..

abcs

Consegui resolver em partes o problemas porem na hora de enviar o arquivo da erro de envio segue abaixo o codigo .


Private Sub Form_Load()

Dim Mens As Object
Dim Config As Object
Set Mens = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")

With Config

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.hotmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "meuemail@hotmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update
End With

Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = "Nome de quem envia"

.Sender = "meuemail@hotmail.com"

.Subject = "Assunto da mensagem"
.HTMLBody = "Mensagem a ser enviada"

.To = "meuemail@hotmail.com"
' a linha abaixo pega o pdf criado e anexa � mensagem
.AddAttachment CurrentProject.Path & "\Relat�rios\11775.pdf"

.Send
End With

MsgBox "Seus dados foram enviados com sucesso.", vbOKOnly + vbInformation, "Dados enviados"

Set Mens = Nothing
Set Config = Nothing

Exit Sub



End Sub

Valeu

Ola norbs ,

Mesmo colocando os dados marcados em azul ainda continua dando erro de envio na linha :

.Send
End With

Obrigado.