FabioRome Member Licensed User Longtime User Sep 7, 2016 #1 B4X: Private Sub InviaMailSMTP (tmpDestinatari As List, tmpOggetto As String, tmpMessaggio As String) SMTP.Initialize(smtpServer, smtpPort, smtpUser, smtpPwd, "SMTP") SMTP.UseSSL = True SMTP.HtmlBody = False SMTP.Sender = "myName <xxxx@xxxxx>" SMTP.to = Array As String ("CopyForMe@xxxxxx") SMTP.BCC.AddAll(tmpDestinatari) SMTP.Subject = tmpOggetto SMTP.Body = tmpMessaggio SMTP.Send End Sub B4X: Private Sub InviaMailSMTP (tmpDestinatari As List, tmpOggetto As String, tmpMessaggio As String) SMTP.Initialize(smtpServer, smtpPort, smtpUser, smtpPwd, "SMTP") SMTP.UseSSL = True SMTP.HtmlBody = False SMTP.Sender = "myName <xxxx@xxxxx>" SMTP.to.AddAll(tmpDestinatari) SMTP.Subject = tmpOggetto SMTP.Body = tmpMessaggio SMTP.Send End Sub When sending SMTP.BCC every address receive 3 Posts (message tripled), if sending SMTP.to every address receive 1 Posts (message correct) My error or bug? thank you (sorry for my english) Last edited: Sep 8, 2016
B4X: Private Sub InviaMailSMTP (tmpDestinatari As List, tmpOggetto As String, tmpMessaggio As String) SMTP.Initialize(smtpServer, smtpPort, smtpUser, smtpPwd, "SMTP") SMTP.UseSSL = True SMTP.HtmlBody = False SMTP.Sender = "myName <xxxx@xxxxx>" SMTP.to = Array As String ("CopyForMe@xxxxxx") SMTP.BCC.AddAll(tmpDestinatari) SMTP.Subject = tmpOggetto SMTP.Body = tmpMessaggio SMTP.Send End Sub B4X: Private Sub InviaMailSMTP (tmpDestinatari As List, tmpOggetto As String, tmpMessaggio As String) SMTP.Initialize(smtpServer, smtpPort, smtpUser, smtpPwd, "SMTP") SMTP.UseSSL = True SMTP.HtmlBody = False SMTP.Sender = "myName <xxxx@xxxxx>" SMTP.to.AddAll(tmpDestinatari) SMTP.Subject = tmpOggetto SMTP.Body = tmpMessaggio SMTP.Send End Sub When sending SMTP.BCC every address receive 3 Posts (message tripled), if sending SMTP.to every address receive 1 Posts (message correct) My error or bug? thank you (sorry for my english)
Erel B4X founder Staff member Licensed User Longtime User Sep 8, 2016 #2 I'm unable to reproduce it. I've tested it with this code: B4X: smtp.Initialize("xxx",587,"xxx@xxx.com","xxx", "smtp") smtp.BCC.Addall(Array("xxx@xxx.com", "xxx@gmail.com")) smtp.Subject = "test" smtp.To.Add("xxx3@xxx.com") smtp.Send Each address received one copy. Upvote 0
I'm unable to reproduce it. I've tested it with this code: B4X: smtp.Initialize("xxx",587,"xxx@xxx.com","xxx", "smtp") smtp.BCC.Addall(Array("xxx@xxx.com", "xxx@gmail.com")) smtp.Subject = "test" smtp.To.Add("xxx3@xxx.com") smtp.Send Each address received one copy.