Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields schema = "http://schemas.microsoft.com/cdo/configuration/" Flds.Item(schema & "sendusing") = 2 Flds.Item(schema & "smtpserver") = "smtp.gmail.com" Flds.Item(schema & "smtpserverport") = 465 Flds.Item(schema & "smtpauthenticate") = 1 Flds.Item(schema & "sendusername") = "xxxxx" Flds.Item(schema & "sendpassword") = "xxx" Flds.Item(schema & "smtpusessl") = 1 Flds.Update With iMsg .To = "xxxxx" .From = "[email protected]" .Subject = "başlık" .HTMLbOdy = Text1.Text .sender = "SERVER" .Organization = "SERVER" .ReplyTo = "[email protected]" Set .Configuration = iConf SendEmailGmail = .Send Text1.Text = "" End With
bu kod eskiden calışırdı şimdi ise hata veriyor, resim cektim sizce nerede yanlış yapıyorum
__________________