Статья
04/01/2012

Перечисление SendMailMessageSourceType

Specifies the type of the MessageSource property, which contains or points to the body of the e-mail message.

Пространство имен: Microsoft.SqlServer.Dts.Tasks.SendMailTask
Сборка: Microsoft.SqlServer.SendMailTask (в Microsoft.SqlServer.SendMailTask.dll)

Синтаксис

'Декларация
Public Enumeration SendMailMessageSourceType
'Применение
Dim instance As SendMailMessageSourceType

public enum SendMailMessageSourceType

public enum class SendMailMessageSourceType

type SendMailMessageSourceType

public enum SendMailMessageSourceType

Элементы

	Имя элемента	Описание
	DirectInput	Specifies that the message source is contained as text in the MessageSource property.
	FileConnection	Specifies that the message source is contained in the file named in the MessageSource property.
	Variable	Specifies that the message source is contained in the variable named in the MessageSource property.

Примеры

The following code sample creates a new SendMailTask that uses the SendMailMessageSourceType enumeration.

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

См. также

Справочник

Пространство имен Microsoft.SqlServer.Dts.Tasks.SendMailTask

Поделиться через