]]> _ _ _ Public Class ScriptMain Inherits UserComponent ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Overrides Sub CreateNewOutputRows() ' Get mails list. Dim mailsList() As Object Dim vars As IDTSVariables90 = Nothing Call Me.VariableDispenser.LockOneForRead(Me.MailsVariable, vars) Try mailsList = CType(vars(Me.MailsVariable).Value, Object()) Finally Call vars.Unlock() End Try Dim attachmentsFolder As String = GetAttachmentsFolder_() ' Populate output buffer. For Each mi As IMailInfo In mailsList Try With Me.OutputBuffer Call .AddRow() .ID = mi.ID Try .SentDate = mi.SentDate Catch ex As Exception ' Some mail doesn't include origination date. End Try .ReceivedDate = mi.ReceivedDate .Size = mi.Size .From = mi.From .To = mi.To .CC = mi.CC .ReplyTo = mi.ReplyTo .Subject = mi.Subject .BodyText.AddBlobData(Encoding.Unicode.GetBytes(mi.BodyText)) .BodyHtml.AddBlobData(Encoding.Unicode.GetBytes(mi.BodyHtml)) If Not String.IsNullOrEmpty(attachmentsFolder) AndAlso mi.HasAttachments Then ' Download mail attachments. Dim destFolder As String = Path.Combine(attachmentsFolder, mi.ID) If Not Directory.Exists(destFolder) Then Call Directory.CreateDirectory(destFolder) End If Call mi.GetAttachments(destFolder, True) End If End With Catch ex As Exception Call FireError_(String.Format("Failed to process mail info. {0}", ex.ToString())) End Try Next Call Me.OutputBuffer.SetEndOfRowset() End Sub ' CreateNewOutputRows ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Validate(ByRef errMessage As String) As Boolean Dim result As Boolean = True Try If String.IsNullOrEmpty(Me.MailsVariable) Then Throw New Exception("Select mails list variable.") End If Catch ex As Exception result = False errMessage = ex.Message End Try Validate = result End Function 'Validate ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Returns list of current properties based on current state. Public Function GetProperties() As String() Dim result As New ArrayList ' Base properties. Call result.Add("MailsVariable") Call result.Add("IsAttachmentsFolderVariable") Call result.Add(IIf(Me.IsAttachmentsFolderVariable, "AttachmentsFolderVariable", "AttachmentsFolder")) Return CType(result.ToArray(GetType(String)), String()) End Function ' GetProperties #Region "Properties" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ _ Public Property MailsVariable() As String Get MailsVariable = m_mailsVariable End Get Set(ByVal value As String) m_mailsVariable = value End Set End Property ' MailsVariable ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ _ Public Property IsAttachmentsFolderVariable() As Boolean Get IsAttachmentsFolderVariable = m_isAttachmentsFolderVariable End Get Set(ByVal value As Boolean) If m_isAttachmentsFolderVariable <> value Then m_isAttachmentsFolderVariable = value m_attachmentsFolder = String.Empty End If End Set End Property ' IsAttachmentsFolderVariable ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ _ Public Property AttachmentsFolderVariable() As String Get AttachmentsFolderVariable = m_attachmentsFolder End Get Set(ByVal value As String) m_attachmentsFolder = value End Set End Property ' AttachmentsFolderVariable ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' _ _ _ Public Property AttachmentsFolder() As String Get AttachmentsFolder = m_attachmentsFolder End Get Set(ByVal value As String) m_attachmentsFolder = value End Set End Property ' AttachmentsFolder #End Region ' Properties #Region "Internals" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub FireError_(ByVal message As String) Dim cancel As Boolean = False Call MyBase.ComponentMetaData.FireError( _ 0, _ "Mail Info Source", _ message, _ String.Empty, _ 0, _ cancel) End Sub ' FireError_ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function GetAttachmentsFolder_() As String Dim result As String = String.Empty If Me.IsAttachmentsFolderVariable Then ' Get attachments folder from variable. If Not String.IsNullOrEmpty(Me.AttachmentsFolderVariable) Then Dim vars As IDTSVariables90 = Nothing Call MyBase.VariableDispenser.LockOneForRead(Me.AttachmentsFolderVariable, vars) Try result = vars(Me.AttachmentsFolderVariable).Value.ToString() Finally Call vars.Unlock() End Try End If Else result = Me.AttachmentsFolder End If GetAttachmentsFolder_ = result End Function ' GetAttachmentsFolder_ #End Region ' Internals #Region "Attributes" Private m_mailsVariable As String Private m_isAttachmentsFolderVariable As Boolean Private m_attachmentsFolder As String #End Region ' Attributes End Class ' ScriptMain ]]> ScriptComponent_ba22ece778b94eb9a89fc680016926b9 true CozyRoc.SqlServer.SSIS.ScriptComponentHostPlus, CozyRoc.SSISPlus, Version=1.0.0.0, Culture=neutral, PublicKeyToken=16cf490bb80c34ea