Udostępnij przez

Właściwość SendMailTask.FileAttachments

Pobiera lub ustawia nazwy plików dołączonych do wiadomości e-mail, rozdzielone znakiem potoku (|), gdy istnieje więcej niż jeden plik.

Przestrzeń nazw:  Microsoft.SqlServer.Dts.Tasks.SendMailTask
Zestaw:  Microsoft.SqlServer.SendMailTask (w Microsoft.SqlServer.SendMailTask.dll)

Składnia

'Deklaracja
Public Property FileAttachments As String
    Get
    Set
'Użycie
Dim instance As SendMailTask
Dim value As String

value = instance.FileAttachments

instance.FileAttachments = value

public string FileAttachments { get; set; }

public:
virtual property String^ FileAttachments {
    String^ get () sealed;
    void set (String^ value) sealed;
}

abstract FileAttachments : string with get, set
override FileAttachments : string with get, set

final function get FileAttachments () : String
final function set FileAttachments (value : String)

Wartość właściwości

Typ: System.String
A ciąg zawierające nazwy plików dołączonych do wiadomości e-mail.

Implementacje

IDTSSendMailTask.FileAttachments

Uwagi

Można albo dołączyć statyczną kopię pliku podczas tworzenia zadania przez określenie nazwy pliku w FileAttachments lub można wskazać lokalizację pliku przy użyciu zmiennej, konfiguracja lub wyrażenie właściwość wysłać dynamicznie zaktualizowany plik przy uruchomieniu czas zamiast.Ta funkcja jest przydatna do wysyłania załączników, takich jak pliki dziennika i wyjątek.Zadania można dołączyć wiele załączników, oddzielając nazwy plików znakiem potoku (|).

Ostrzeżenie

Jeśli plik załącznika nie istnieje, po uruchomieniu tego pakietu, pakiet wywołuje komunikat o błędzie.

Przykłady

Poniższy przykładowy kod tworzy konfiguruje i wykonuje nowy SendMailTask używający FileAttachments właściwość.

Imports Microsoft.SqlServer.Dts.Runtime
Imports Microsoft.SqlServer.Dts.Tasks.SendMailTask

Module Module1

  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

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
  • Last updated on