dynamische Mailvorlagen
This commit is contained in:
@@ -34,6 +34,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim usrcntl_ATA As usrCntlSND_Handling
|
||||
Dim usrcntl_ATB As usrCntlSND_ATBGestellung
|
||||
Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr
|
||||
Dim listOfTextconserven
|
||||
|
||||
|
||||
Sub New()
|
||||
@@ -479,6 +480,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"}
|
||||
Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"}
|
||||
Case "AMBAR" : cboFiliale._allowedValuesFreiText = {"5701"}
|
||||
|
||||
Case "ATILLA" : cboFiliale._allowedValuesFreiText = Nothing
|
||||
End Select
|
||||
End Select
|
||||
@@ -708,7 +710,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Case "AMBAR"
|
||||
AMBARZollbeschauToolStripMenuItem.Visible = True
|
||||
AMBARZollbeschauNEUToolStripMenuItem.Visible = True
|
||||
WarenortAMBARToolStripMenuItem.Visible = True
|
||||
dynMailsToolStripMenuItem.Visible = True
|
||||
End Select
|
||||
initDataBinding()
|
||||
|
||||
@@ -4108,7 +4110,8 @@ Public Class frmSendungsdetailsNEU
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click, ToolStripMenuItem15.Click, WarenortAMBARToolStripMenuItem.Click
|
||||
Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click, ToolStripMenuItem15.Click
|
||||
|
||||
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
|
||||
@@ -4155,31 +4158,8 @@ Public Class frmSendungsdetailsNEU
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "ATA-Nr fehlt (Fremdanmeldung) - angefordert", 33)
|
||||
|
||||
ElseIf sender Is WarenortAMBARToolStripMenuItem Then
|
||||
|
||||
Mail.Subject = AVISO.LKW_Nr
|
||||
If If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger, "") <> "" Then Mail.Subject &= " / " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= "Sehr geehrte Damen und Herren,<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "der LKW meldet sich mit der Ware lt. Anhang bei uns am Warenort Zollamt " & lblGrenze.Text.Replace(vbNewLine, " ") & ", bitte um Vorbereitung der Verzollung. <br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Wir melden uns bei LKW-Ankunft mit der ATB Nummer.<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An Fremdspediteur avisiert (Warenort)", 98)
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE",,,,,, False) & "</div>"
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Mail.Display()
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -4339,7 +4319,24 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles btnMailVorlage.Click
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
|
||||
listOfTextconserven = New cTextkonserve_LIST("FRM_MNGR_MailText", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
|
||||
If listOfTextconserven.LIST.Count = 0 Then
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
Else
|
||||
For Each r In listOfTextconserven.LIST
|
||||
|
||||
If Not dynMailsToolStripMenuItem.DropDownItems.ContainsKey(r.txt_id) Then
|
||||
Dim menuItem = New ToolStripMenuItem() With {.Text = r.txt_bezeichnung, .Name = r.txt_id}
|
||||
dynMailsToolStripMenuItem.DropDownItems.Add(menuItem)
|
||||
AddHandler menuItem.Click, AddressOf mnuItem_Clicked
|
||||
End If
|
||||
Next
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -5334,7 +5331,7 @@ Public Class frmSendungsdetailsNEU
|
||||
Dim found = False
|
||||
|
||||
|
||||
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "EMPF") Then ' Wenn barechnugn an Empf
|
||||
If SND.ABRECHNUNG.Exists(Function(x) x.sndabr_beteiligter = "EMPF") Then ' Wenn barechnugn an EmpfFambar
|
||||
TmpKdNr = SND.tblSnd_EmpfaengerKdNr
|
||||
If Not listKdNr.Contains(TmpKdNr) Then
|
||||
f = New AVISO.frmSndVorgeschriebenSetzen(AVISO, SND, TmpKdNr)
|
||||
@@ -6691,18 +6688,18 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
|
||||
Try
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
Mail.Subject &= AVISO.LKW_Nr & " Fiskal CMR/packing List"
|
||||
|
||||
Dim firstTextHTMLDE = ""
|
||||
firstTextHTMLDE &= "Sehr geehrte Damen und Herren,<br>"
|
||||
firstTextHTMLDE &= "<br>"
|
||||
firstTextHTMLDE &= "o.g. LKW ist bei uns zur Zollabfertigung eingetroffen.<br>"
|
||||
firstTextHTMLDE &= "Um die Ware im Zollverfahren 4200 (Fiskal) abfertigen zu können, ist es notwendig dass Sie beigefügten CMR im Feld 22 gegenstempeln und unterzeichnen.<br>"
|
||||
firstTextHTMLDE &= "Es ist von äußerster Wichtigkeit, dass Sie den angefügten CMR verwenden. Bitte verwenden Sie keinen anderen CMR.<br>"
|
||||
firstTextHTMLDE &= "Sehr geehrte Damen und Herren,<br>"
|
||||
firstTextHTMLDE &= "<br>"
|
||||
firstTextHTMLDE &= "o.g. LKW ist bei uns zur Zollabfertigung eingetroffen.<br>"
|
||||
firstTextHTMLDE &= "Um die Ware im Zollverfahren 4200 (Fiskal) abfertigen zu können, ist es notwendig dass Sie beigefügten CMR im Feld 22 gegenstempeln und unterzeichnen.<br>"
|
||||
firstTextHTMLDE &= "Es ist von äußerster Wichtigkeit, dass Sie den angefügten CMR verwenden. Bitte verwenden Sie keinen anderen CMR.<br>"
|
||||
|
||||
firstTextHTMLDE &= "Alternativ können Sie uns auch eine Packliste mit Original-Stempel und Signatur per Mail übersenden.<br>"
|
||||
firstTextHTMLDE &= " Auf der Packliste müssen folgende Merkmale vorhanden sein:<br>"
|
||||
@@ -6756,7 +6753,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
Mail.Display()
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
|
||||
End Try
|
||||
@@ -6764,4 +6761,94 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
|
||||
ContextMenuStrip1.Hide()
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
If item IsNot Nothing Then
|
||||
|
||||
For Each r As cTextkonserve In listOfTextconserven.LIST
|
||||
|
||||
If item.Name = r.txt_Id.ToString Then
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
Try
|
||||
Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR")
|
||||
Mail.HTMLBody &= cFakturierung.getSignature(r.txt_sprache, 24, True, True)
|
||||
Catch ex2 As Exception
|
||||
MsgBox(ex2.Message)
|
||||
End Try
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Mail.Subject = r.txt_betreff
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= r.txt_text
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= cFakturierung.getSignature(r.txt_sprache, r.txt_firmaSig, True, True)
|
||||
|
||||
If lblGrenze.Text <> "" Then
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
|
||||
Else
|
||||
TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
|
||||
End If
|
||||
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||
|
||||
|
||||
|
||||
If AVISO IsNot Nothing Then
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", AVISO.LKW_Nr)
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
End If
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then
|
||||
Mail.Subject = Mail.Subject.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
|
||||
End If
|
||||
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("% - Empfaenger%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("% Empfaenger%", "")
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
Next
|
||||
Mail.Display()
|
||||
If False Then
|
||||
AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An Fremdspediteur avisiert (Warenort)", 98)
|
||||
End If
|
||||
Exit For
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user