SendMailMessageSourceType 枚举

定义

指定 MessageSource 属性的类型,该属性包含或指向电子邮件的正文。

public enum class SendMailMessageSourceType
public enum SendMailMessageSourceType
type SendMailMessageSourceType = 
Public Enum SendMailMessageSourceType
继承
SendMailMessageSourceType

字段

DirectInput 0

MessageSource 属性中指定作为文本包含的消息源。

FileConnection 1

指定在 MessageSource 属性中命名的文件中包含的消息源。

Variable 2

指定在 MessageSource 属性中命名的变量中包含的消息源。

示例

下面的代码示例创建一个使用枚举的新SendMailTaskSendMailMessageSourceType示例。

using Microsoft.SqlServer.Dts.Runtime;  
using Microsoft.SqlServer.Dts.Tasks.SendMailTask;  

class Program  
{  
  static void Main(string[] args)  
  {  
    Package pkg = new Package();  
    ConnectionManager smtpCM;  
    smtpCM = pkg.Connections.Add("SMTP");  
    smtpCM.Name = "SMTP Connection Manager";  
    smtpCM.ConnectionString = "smtphost";  
    Executable exe = pkg.Executables.Add("STOCK:SendMailTask");  
    TaskHost thSendMailTask = ((TaskHost)(exe));  
    thSendMailTask.Properties["SmtpConnection"].SetValue(thSendMailTask, "SMTP Connection Manager");  
    thSendMailTask.Properties["ToLine"].SetValue(thSendMailTask, "someone1@example.com");  
    thSendMailTask.Properties["CCLine"].SetValue(thSendMailTask, "someone2@example.com");  
    thSendMailTask.Properties["BCCLine"].SetValue(thSendMailTask, "someone3@example.com");  
    thSendMailTask.Properties["FromLine"].SetValue(thSendMailTask, "someone4@example.com");  
    thSendMailTask.Properties["Priority"].SetValue(thSendMailTask, MailPriority.Normal);  
    thSendMailTask.Properties["FileAttachments"].SetValue(thSendMailTask, "C:\\test_image.jpg");  
    thSendMailTask.Properties["Subject"].SetValue(thSendMailTask, "Testing the SendMail Task");  
    thSendMailTask.Properties["MessageSourceType"].SetValue(thSendMailTask, SendMailMessageSourceType.DirectInput);  
    thSendMailTask.Properties["MessageSource"].SetValue(thSendMailTask, "This is only a test.");  
    DTSExecResult valResults = pkg.Validate(pkg.Connections, pkg.Variables, null, null);  
    if (valResults == DTSExecResult.Success)  
    {  
      pkg.Execute();  
    }  
  }  
}  
Imports Microsoft.SqlServer.Dts.Runtime  
Imports Microsoft.SqlServer.Dts.Tasks.SendMailTask  

Module TestSendMailTask  

  Sub Main()  

    Dim pkg As New Package  

    Dim smtpCM As ConnectionManager  
    smtpCM = pkg.Connections.Add("SMTP")  
    smtpCM.Name = "SMTP Connection Manager"  
    smtpCM.ConnectionString = "smtphost"  

    Dim exe As Executable = pkg.Executables.Add("STOCK:SendMailTask")  
    Dim thSendMailTask As TaskHost = CType(exe, TaskHost)  
    With thSendMailTask  
      .Properties("SmtpConnection").SetValue(thSendMailTask, "SMTP Connection Manager")  
      .Properties("ToLine").SetValue(thSendMailTask, "someone1@example.com")  
      .Properties("CCLine").SetValue(thSendMailTask, "someone2@example.com")  
      .Properties("BCCLine").SetValue(thSendMailTask, "someone3@example.com")  
      .Properties("FromLine").SetValue(thSendMailTask, "someone4@example.com")  
      .Properties("Priority").SetValue(thSendMailTask, MailPriority.Normal)  
      .Properties("FileAttachments").SetValue(thSendMailTask, "C:\test_image.jpg")  
      .Properties("Subject").SetValue(thSendMailTask, "Testing the SendMail Task")  
      .Properties("MessageSourceType").SetValue(thSendMailTask, SendMailMessageSourceType.DirectInput)  
      .Properties("MessageSource").SetValue(thSendMailTask, "This is only a test.")  
    End With  

    Dim valResults As DTSExecResult = pkg.Validate(pkg.Connections, pkg.Variables, Nothing, Nothing)  

    If valResults = DTSExecResult.Success Then  
      pkg.Execute()  
    End If  

  End Sub  

End Module  

适用于