关于脱壳后的跨平台问题 »

« 欢迎natyou入住Eddy's Blog

网上有个smtp.dll，可以在VB中直接调用来达到发送邮件的目的。

试了下，感觉还不错。不过发送的邮件内容中会有一些额外的信息，这些信息是写这个dll的作者添加的

我修改了下，去掉了发邮件尾巴信息，需要的可以下载^_

下载：smtp.dll修改纯净版

具体调用方法，看代码：

Private Declare Function SendMail Lib "smtp.dll" (ByVal StrSmtpServer As String, ByVal StrUser As String, ByVal StrPass As String, ByVal StrMailFrom As String, ByVal StrMailTo As String, ByVal StrSubject As String, ByVal StrBodyMsg As String) As Long
Private Declare Function GetSmtpError Lib "smtp.dll" (ByVal StrErrMsg As String) As Long

If SendMail(TxtServer.Text, TxtUser.Text, TxtPass.Text, TxtMailFrom.Text, TxtMailTo.Text, TxtSubject.Text, TxtBodyMsg.Text) Then
        MsgBox "邮件发送成功", vbInformation
Else
        StrErrMsg = Space(100)    '填充缓冲区 这句是必须的 不要遗漏
        GetSmtpError StrErrMsg
        MsgBox StrErrMsg, vbInformation, "邮件发送失败"

End If

具体参数看名字应该就知道意思了，就不多说了。