Question

我有一个公共函数来调用默认的电子邮件客户端。

Public Function OpenEmail(ByVal EmailAddress As String, Optional ByVal Subject As String = "", Optional ByVal Body As String = "") As Boolean
    Dim bAns As Boolean = True
    Dim sParams As String
    sParams = EmailAddress
    If LCase(Strings.Left(sParams, 7)) <> "mailto:" Then _
        sParams = "mailto:" & sParams

    If Subject <> "" Then sParams = sParams & _
          "?subject=" & Subject

    If Body <> "" Then
        sParams = sParams & IIf(Subject = "", "?", "&")
        sParams = sParams & "body=" & Body
    End If
End Function

然后在Button_click中，我把

 OpenEmail("mail@asdf.com", "Subject", Body:=" of my message")

但我无法调用该功能。我点击button1时想打开客户端感谢

Answer 1

如果在Test类中定义了此方法（函数），则创建Test的实例并调用它。

public class Test
Public Function OpenEmail(ByVal EmailAddress As String, Optional ByVal Subject As String = "", Optional ByVal Body As String = "") As Boolean
 ....
End Function
End Class

按钮单击处理程序中的代码：

Dim tst as New Test
tst.OpenEmail("mail@asdf.com", "Subject", Body:=" of my message")

PS：使用System.Net.Mail API发送电子邮件。

编辑：打开默认邮件客户端：

Process.Start("mailto:user@example.com?subject=Message Title&body=Message Content")

如何调用公共功能

1 个答案: