Private Sub Command1_Click()Dim EmailSet Email = CreateObject("CDO.Message")Email.From = "本地址"Email.To = "目的地址"Email.Subject = "标题"Email.Textbody = text1.TextEmail.Send '发送End Sub我没试，不知有没有用。
求VB发送邮件的方法
Simone
发布于 2024-01-15 15:23:44
565 阅读
