| Usuario |
Problema al crear objeto |
Desconocido
|
| Enviado - 7/4/2006 |
| |
Hola,
el siguiente código me deja de rular justo cuando llega a la línea:
Set myMail=CreateObject("cdo.Message")
¿alguien sabe por qué?
El código entero es:
Function Enviar(lista_email)
Document.Write("Enviando...")
Document.Write(lista_email)
Set ArrayEmails = CreateObject("Scripting.Dictionary")
ArrayEmails = Split(lista_email, ";")
txtMensaje = "Prueba"
txtSubject = "Prueba"
Set myMail=CreateObject("cdo.Message")
myMail.Subject = txtSubject
myMail.From="[email protected]"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server'
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="xx.xxx.es"
'Server port'
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.TextBody = txtMensaje
for k=0 to 3000
Document.Write("Enviando a: " & ArrayEmails(k) & "...")
myMail.To=ArrayEmails(k)
myMail.Send
next
set myMail=nothing
End function
No tengo ningún fallo en la configuración del correo puesto que esto mismo me funciona en otro programa perfectamente...
Gracias! saludos |
| |
|
|
|
