Galera estou com um problema tenho que fazer um form de envio de email com anexo estou usando o Dundas por ser free tenei instalar o aspemail no meu pc mas nao instalo.
olhe o coidigo:
Set objMailer = Server.CreateObject ("Dundas.Mailer")
strSubscriber ="clajmcardoso@cjprofiles.com.br"
objMailer.TOs.Add email
objMailer.FromAddress = email
objMailer.SMTPRelayServers.Add "smtp.cjprofiles.com.br"
objMailer.Subject = Assunto
texto = "<html><head></head><body><table cellpadding='2' cellspacing='2' border=0><tr><th colspan='2'><img src='img\topo_email.jpg' width='686px' height='83px'>"
texto = texto & "</th><tr><tr><td width='20%'></td><td width='80%'><h1>Pagamento Conta de Celular</h1></td></tr>"
texto = texto & "</th><tr><tr><td width='20%'><h1>Atenção: </h1></td><td width='80%'><h2>Funcionários que pertencem ao Plano Corporativo da Accenture.</h2></td></tr>"
texto = texto & "</th><tr><tr><td width='20%'><h1>Como isso afeta você: </h1></td><td width='80%'>Confirmação da WBS \ Cost Center e do valor da conta. Verifique se o valor "
texto = texto & "e a(s) WBS(s) \ Cost Center(s) referente a utilização do dispositivo descrito abaixo estão corretos.</td></tr>"
texto = texto & "</th><tr><tr><td width='20%'></td><td width='80%'><h1>Linha:</h1><h2>" & Linha & "</h2><br><h1>Periodo de cobrança:<\h1><h2>" & dataPeriodo
texto = texto & "<h1><h1>Valor na Fatura:</h1><h2>" & Valor & "</h2><br><h1>WBS \ Cost Center:<\h1><h2>" & WBS & "</h1><h2>"
texto = texto& "<h1><h1>Dispositivo: </h1><h2>" & Dispositivo & "</h2><br><h1>Operadora:<\h1><h2>" & Operadora & "</h1><h2></td></tr>"
texto = texto & "</th><tr><tr><td width='20%'><h1>Informações Adicionais:</h1></td><td width='80%'><h2>Havendo discordância, responda este e-mail solicitando o detalhamento ou alteração dos dados até 18/07/2014, caso contrário o valor será debitado na(s) WBS(s) \ Cost Center(s) descrito(s) acima.</h2></td></tr>"
texto = texto & "</table></body></html>"
objMailer.HTMLBody = textos
objMailer.SendMail
Set objMailer = Nothing
Ele da o seguinte erro:
Dundas.Mailer.1 error '80004005'
The connection timed-out.
/automatiza/envia_fatura.asp, line 48