求邮件群发源代码？

Question

不知以下代码是否能帮你！
建一个BAS，写入以下代码：
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
        ByVal lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long建一个窗体，一个LABLE，写入以下代码：
Private Sub OpenURL(objForm As Form, strURL As String)
Call ShellExecute (objForm.hwnd, "open", strURL, vbNullString, vbNullString, &H0)
End Sub
Private Sub Label1_Click()
OpenURL Me, "Mailto:[email protected], huihuizyx@ ynmail.com"
End Sub

Answer 1

可以去这里看一看，有完整的源代码，绝对实用：
http://www.aslike.net