Saya mengirim email dengan objek CDO.Message dan email tiba dengan spasi kosong antar karakter.
Misalnya, saya mengirimkan string ini:
"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exeritation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Kecuali sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."
Dan tiba ini:
"Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exeritation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in ditegur dalam volup tate velit esse cillum dolore eu fugiat nulla pariatur. Kecuali sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."
Periksa kata yang kuat untuk memahami. Mengapa hal itu terjadi?
Kode saya
Set Mail= Server.CreateObject("CDO.Message")
Set MailConfig = Server.CreateObject("CDO.Configuration")
Mail.From = [email protected]
Mail.Bcc = "[email protected]"
Mail.Subject = "Example"
MailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = sendUsing
MailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
MailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpServerPort
MailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
MailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = smtpUseSSL
MailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = smtpConnectionTimeout
MailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailUsername
MailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailPassword
MailConfig.Fields.Update
Mail.Configuration = MailConfig
strBody = "the string"
Mail.HTMLBody = strBody
Mail.HTMLBodyPart.Charset = "utf-8"
Mail.send
Spasi ekstra muncul setiap 991 karakter. Saya menambahkan ini:
Mail.HTMLBodyPart.ContentTransferEncoding = "quoted-printable"
Dan telah terpecahkan.