Run time error "438" "Object doesn't support this property or method"
Created by: Ksvr96_15 at: 7/14/2021 9:08 AM (1 Replies)
Rating 
Thanks 0
2 Entries
| 7/14/2021 9:08 AM | |
Joined: 4/19/2021 Last visit: 7/31/2025 Posts: 6 Rating:
|
Hi to everyone, I'm trying this script: ------------------------------------------------------------------------------------------------------------------------------------ Sub EnvioCorreosPrueba(Byval SendTo, Byval CC, Byval Subjet, Byval Text, Byval Attach) On Error Resume Next If Len(SendTo)=0 Then Exit Sub End If Dim Email Set Email=CreateObject("CDO.Message") Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'SMTP Server Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'SMTP Port Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpsauthenticate") = 1 'SMTP Server ID + PSWD Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "********@gmail.com" Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******" 'SMTP server SSL (False or True) Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Mensaje a enviar Email.Subject = Subjet Email.From = "*********@gmail.com" Email.To = SendTo If Len(CC)<>0 Then Email.Cc = CC End If If Len(Attach)<>0 Then Email.AddAttachment Attach End If Email.TextBody = Text Email.Configuration.Fields.Update Email.Send Set Email = Nothing 'Comprobación de los posibles errores tras el envio If Err.Name <> 0 Then HMIRuntime.Trace "Error enviado mail numero: "&Err.Number&" Desc: "&Err.Description&vbNewLine Err.Clear End If End Sub ------------------------------------------------------------------------------------------------------------------------------------ But when I execute it I get this error: Run time error "438" "Object doesn't support this property or method" I've checked that I've installed IIS and when I run "pingmail.mysite.com." in CMD I get the name of the server and its IP. Does someone know what could be? Thanks in advance, Kosovo ------------------------------------------------------------------------------------------ |
Last edited by: Ksvr96_15 at: 07/14/2021 09:09:22Last edited by: Ksvr96_15 at: 07/14/2021 09:20:53Last edited by: Jen_Moderator at: 07/14/2021 11:51:38New subject after splitting |
|
Follow us on