'邮件设置及发送 Sub mailsend() Set mail = CreateObject("WWSCommon.SmtpMail") with mail .Sendername = "zjfuwen" .SenderAddress = "zjfuwen@163.com" .Subject = "交易信号邮件提醒" .Mailer = "港城投资" end with call mail.AddReceiver("fw","1333650xxxx@189.cn") ' call mail.AddTextContent("详细请见附件EXCEL") ' call mail.AppOctStrmContent("D:\stock.xls") call mail.Sender("smtp.163.com","zjfuwen","xxxxxx") application.MsgOut "邮件发送成功!" End Sub