如何用C＃在Windows Form 上实现邮件群发功能！

Question

我也要这个东西吖～～～～去下个群发软件，再WINFORM里面做个按钮调用那个群发软件里面的接口。

Answer 1

我在学c#->Windows form,想想你学习

Answer 2

建议你做一个WEBService,然后通过程序调用接口
    <WebMethod()> Public Function getYouEMail(ByVal strMD5Flag As String, ByVal emTo As String, ByVal emFrom As String, ByVal emSubject As String, ByVal emBody As String, ByVal emPri As String, ByVal laberr As String) As Boolean
        Dim newMail As New Mail.MailMessage()  '定义一个邮件发送函数
        Dim eMailFormat As eMailStruct
        Dim services() As ServiceProcess.ServiceController = ServiceProcess.ServiceController.GetServices   '得到所有service服务
        Dim service As ServiceProcess.ServiceController
            For Each service In services    '比较所有服务中有没有SMTP服务
                If service.ServiceName = "SMTPSVC" Then   '如果有SMTP服务
                    scflag = True      '设定标志位
                    Exit For
                End If
            Next
            If scflag = False Then   '如果没有找到SMTP服务器，则抛出错误。
                Throw New Exception("没有找到SMTP服务，请确认。")
            End If
            If Not service.Status = ServiceProcess.ServiceControllerStatus.Running Then   '如果SMTP不在运行状态,重新启动它
                service.Start()
            End If
            With eMailFormat                           '将数据传入结构
                .emailAddress = emTo
                .emailForm = emFrom
                .emailSubject = emSubject
                .emailbody = emBody
                .emailPriority = emPri
            End With
            With newMail                              '定义电子邮件的内容
                .From = eMailFormat.emailForm
                .To = eMailFormat.emailAddress
                '.Cc = eMailFormat.emailCc
                '.Bcc = eMailFormat.emailBcc
                .Subject = eMailFormat.emailSubject
                .Body = eMailFormat.emailbody
                .Priority = eMailFormat.emailPriority   '新邮件的等级（急件或其它）
                .BodyFormat = Text                      '定义发送邮件的格式txt或html
            End With
            smtpMail.SmtpServer = ""        '"172.30.0.167"
            smtpMail.Send(newMail)
            Return True
        Catch
            laberr = Err.Description
            Return False
        End Try
    End Function

Answer 3

用一个ArrayList存放多个邮箱地址,然后用一个foreach循环send()