Public Function send_order_html(ByVal orderno As String, ByVal toEmail As String, _ ByVal toName As String, ByVal ccRef As String, _ ByVal subject As String) As String ' Create instance of guixt Dim g As New guixt ' Head of HTML for e-mail Dim HTML As String = "" Try HTML &= table_add_css() & "" HTML &= "
Kurzübersicht über Bestellung " & orderno & "



" ' Start transaktion VA03 g.GuiSession.Enter("/nVA03") ' Enter number of order g.GuiSession.SetField("VBAK-VBELN", orderno) g.GuiSession.Enter() ' Get some data of order HTML &= "Nettowert: " & g.GuiSession.GetField("VBAK-NETWR") & " " HTML &= g.GuiSession.GetField("VBAK-WAERK") & "
" HTML &= "Auftraggeber: " & g.GuiSession.GetField("KUAGV-TXTPA") & "
" HTML &= "Warenempfänger : " & g.GuiSession.GetField("KUWEV-KUNNR") & "
" HTML &= "Bestellnumme: " & g.GuiSession.GetField("VBKD-BSTKD") & "
" HTML &= "Bestelldatum: " & g.GuiSession.GetField("VBKD-BSTDK") & "
" ' Define table for ReadTable() Dim dt As DataTable = New DataTable("Orders") dt.Columns.Add("POSNR") dt.Columns.Add("MABNR") dt.Columns.Add("KWMENG") dt.Columns.Add("VRKME") dt.Columns.Add("ARKTX") HTML &= "
Positionen:

" ' Read table with guinet.dll (SAP GUI Scripting) g.GuiSession.ReadTable(dt) HTML &= "" _ & "" HTML &= "" g.GuiSession.Enter("/3") ' Format table with HTML For i = 0 To dt.Rows.Count - 1 HTML &= "" HTML &= "" HTML &= "" HTML &= "" HTML &= "" HTML &= "" HTML &= "" Next HTML &= "
PosMat.No. Menge EinheitBeschreibung
" & dt.Rows(i)(0) & "" & dt.Rows(i)(1) & "" & dt.Rows(i)(2) & "" & dt.Rows(i)(3) & "" & dt.Rows(i)(4) & "
" Catch ex As Exception Return ex.Message End Try Dim e As New email ' Send e-mail with SMTP e.send_order(toEmail, toName, ccRef, subject, HTML) Return HTML End Function