BeforeSendMail

Dieser Skript läuft bevor eine E-Mail gesendet wird. Alle Dokumente und Berichte wurden bereits generiert und der E-Mail angehängt.

Anwendungsgebiet

Anhängen von zusätzlichen Dokumenten an die E-Mail
Änderung des E-Mail inhalts
Entfernen von Dokumenten aus der generierten E-Mail vor dem senden. Beispiel

Das folgende Beispiel hängt eine Excel-Datei an die E-Mail an in welcher alle Auftragsartikel in Tabellenform aufgeführt sind.

Public Shared Sub BeforeSendMail(e As BeforeSendMailParameters)

Dim dat As tbl_Auftrag = TryCast(e.ReportGenerationParameter.ObjectData, tbl_Auftrag)

If dat Is Nothing Then Return

Using spreadsheet As New DevExpress.Spreadsheet.Workbook

Dim sheet = spreadsheet.Worksheets(0)

Dim CurrentRow = 0

Dim CurrentCol = 0

sheet.Cells(CurrentRow, CurrentCol).SetValue("Auftrag")

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue("Typ")

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue("Artikelnummer")

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue("Gesamtsumme")

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue("Einzelpreis")

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue("Preiseinheit")

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue("Menge")

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue("Lagereinheit")

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue("Solldatum")

CurrentCol += 1

For Each item In (From a In dat.tbl_Auftrag_Artikel Where a.ParentID Is Nothing)

If If(item.ArtikelTyp, EntityHelper.CustomDataTypes.ArtikelTyp.Normal) = EntityHelper.CustomDataTypes.ArtikelTyp.TextOnly Then Continue For

CurrentRow += 1

CurrentCol = 0

sheet.Cells(CurrentRow, CurrentCol).SetValue(item.tbl_Auftrag.Auftragsbezeichnung)

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue(item.tbl_Auftrag.tbl_auftragskategorien.text)

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue(item.Artikelnummer)

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue(item.GesamtSummeVK_BruttoNetto)

sheet.Cells(CurrentRow, CurrentCol)(0).NumberFormat = "#,##0.00 €"

CurrentCol += 1

sheet.Cells(CurrentRow, CurrentCol).SetValue(item.GesamtEinzelpreis_BruttoNetto)

sheet.Cells(CurrentRow, CurrentCol)(0).NumberFormat = "#,##0.00 €"

CurrentCol += 1

If Not item.tbl_Einheiten_Preis Is Nothing Then

sheet.Cells(CurrentRow, CurrentCol).SetValue(item.tbl_Einheiten_Preis.Kürzel)

End If

CurrentCol += 1

If If(item.bestellmenge, 0) <> 0 Then

sheet.Cells(CurrentRow, CurrentCol).SetValue(If(item.bestellmenge, 0))

End If

CurrentCol += 1

If Not item.tbl_Einheiten Is Nothing Then

sheet.Cells(CurrentRow, CurrentCol).SetValue(item.tbl_Einheiten.Kürzel)

End If

CurrentCol += 1

If Not item.Solldatum Is Nothing Then

sheet.Cells(CurrentRow, CurrentCol).SetValue(item.Solldatum.Value)

End If

CurrentCol += 1

Next

'Gesamter Tabellenbereich

For x = 0 To CurrentCol - 1

sheet.Columns(x).AutoFit()

Next

'Speichern

Dim TempPath As String = Styletronix.AuftragsverwaltungV2.Common.Gemeinsam.GetTempFolder

Dim FileName = Styletronix.AuftragsverwaltungV2.Common.Gemeinsam.Files.CleanFileName(TempPath & String.Format("\{0}.xlsx", e.ReportGenerationParameter.BerichtBezeichnung))

FileName = Styletronix.Utils.Files.GetNotUsedFileName(FileName)

spreadsheet.SaveDocument(FileName)

'Datei an E-Mail anhängen

e.TemporaryFilesToAttach.Add(FileName)

End Using

End Sub

Quelle

Ursprungsdatei: beforesendmail.htm