以下是引用JoyGum在2014-3-1 18:29:00的发言:
副本如空值則跳過代碼如何做,謝謝!
Tables("ControlDetails").Filter="(Status='提前1天' or Status='提前2天' or Status='提前3天') and Duplicate is not null"
For Each r As Row In Tables("ControlDetails").rows
Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "joy"
m.Password = "*****"
m.From = "joy7372@hotmail.com"
m.To = "ReceiverGroup"
m.Title = "Gist"
m.C
m.AddAttachments("c:\data\table.txt")
m.SendAsync()
Next