1000分求VB中实现通过SSL连接SMTP服务器

[achinacracker]

只要能实现，送上1000分，呵呵

[珍惜生命远离CPP]

SMTP服务器?这个好说
用openssl的dll
调用几个函数就能够连上去的.

[achinacracker]

没人了解吗？

[CathySun118]

用第三方控件吧，自己做比较麻烦

[Hotus]

第三方控件？有推荐的吗？

[Hotus]

有没有例子呢？

[Hotus]

没人啊？

[hontus]

UP

[shuijinyue]

up

[daisy8675]

你的意思是写个类似OE还是写如gmail配置工具？

[hontus]

类似OE

[hontus]

可以选择是否通过SSL连接

[daisy8675]

OE的话偶没研究，gmail的倒是容易写

[luoxinxin1988]

学习

[Hotus]

GMAIL的呢？能给个例子吗？

[shisoftgenius]

这个问题我还是用.NET实现的，呵呵

[Hotus]

顶一下

[jh87921234]

我现在也在看这个问题，关注中
献上而我的核心代码，请大侠不吝指教：
Winsock1.SendData GenerateMessageID(Mid(MAIL_FROM, InStr(1, MAIL_FROM, "@") + 1, Len(MAIL_FROM))) & Chr$(13) & Chr$(10)
Winsock1.SendData "DATE: " & Format(Now, "h:mm:ss") & Chr$(13) & Chr$(10)
Winsock1.SendData "FROM: " & FROM & " <" & MAIL_FROM & ">" & Chr$(13) & Chr$(10)
Winsock1.SendData "TO: " & MAIL_TO & " <" & RCPT_TO & ">" & Chr$(13) & Chr$(10)
Winsock1.SendData "Reply-to: " & " <" & REPLY_TO & ">" & Chr$(13) & Chr$(10)
Winsock1.SendData "SUBJECT: " & SUBJECT & Chr$(13) & Chr$(10)
Winsock1.SendData "MIME-Version: 1.0" & Chr$(13) & Chr$(10)
Winsock1.SendData "Content-Type: text/plain; charset=us-ascii" & Chr$(13) & Chr$(10)
Winsock1.SendData Chr$(13) & Chr$(10)

Winsock1.SendData DATA & Chr$(13) & Chr$(10)
Log DATA
Winsock1.SendData Chr$(13) & Chr$(10) & "." & Chr$(13) & Chr$(10)

Log Chr$(13) & Chr$(10) & "."

[cqq_chen]

jmail.dll，网上有，找找看。

[meiZiNick]

以后需再关注，现在先帮你顶一下

[knowledge_Is_Life]

没遇到过这种情况.