添加了一个MAPIMessages
和MAPIMessages和text1,text2,commandPrivate Sub Command1_Click()
MS.SignOn
MM.SessionID = MS.SessionID
MM.Compose
MM.RecipAddress = "[email protected]"
MM.AddressResolveUI = True
MM.ResolveName
MM.MsgSubject = Text1.Text
MM.MsgNoteText = Text2.Text
MM.Send
MS.SignOff
End Sub
为什么发不了邮件呀~!
有什么错误吗?给小弟弟讲讲好吗~?!
帮帮小菜鸟呀~
和MAPIMessages和text1,text2,commandPrivate Sub Command1_Click()
MS.SignOn
MM.SessionID = MS.SessionID
MM.Compose
MM.RecipAddress = "[email protected]"
MM.AddressResolveUI = True
MM.ResolveName
MM.MsgSubject = Text1.Text
MM.MsgNoteText = Text2.Text
MM.Send
MS.SignOff
End Sub
为什么发不了邮件呀~!
有什么错误吗?给小弟弟讲讲好吗~?!
帮帮小菜鸟呀~
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货