Boa Tarde, pessoal.

 

Bom, tenho a seguinte rotina e não estou conseguindo atachar um arquivo do ACCESS nele. A minha rotina é a seguinte:

 

Dim Options As ExportOptions

Screen.MousePointer = vbHourglass
Set Options = CrystalReport4.ExportOptions
Options.DestinationType = crEDTDiskFile

Options.DiskFileName = Arq

Dim Mail As vbSendMail.clsSendMail

Set Mail = New clsSendMail
Mail.SMTPHost = "smtp.ig.com.br"
Mail.From = Email

Mail.FromDisplayName = Fant

Mail.Recipient = "lcsd@ig.com.br"
Mail.RecipientDisplayName = "LCSD"

Mail.Subject = "Envio do Arquivo de Comissões de " + Format(cboMes.ListIndex, "00") + "/" + Trim(txtAno.Text)

Mail.Attachment = Options.DiskFileName
Mail.Message = "Arquivo de Comissões do Representante " + Fant

Mail.Send

 

Enfim, na minha variável ARQ, eu tenho o caminho e o nome do meu arquivo .MDB nele, e quando envio, não dá erro nenhum e não chega mensagem nenhuma tbem.

 

O que pode ser??? Só falta isso para eu terminar este meu MALEDETO sistema???

Luiz já respondi o seu email

 

Roberto

Obrigado, Roberto....

 

Conseguí resolver o meu problema alterando o SMTP.

 

Coloquei outro e funcionou. Só não sei se, quando eu estiver longe da empresa, se o end. SMPT que eu coloquei para funcionar, se irá mandar ou não! (coloquei o End. SMTP da empresa).