20251001 Aws edi mail content

2025/10/01 更新2025/10/01 發佈閱讀 18 分鐘

了解，你的重點是「如何用 VB.NET 動態產生包含訂單資訊的信件內文 (HTML Body)」，以便寄給業務。核心是使用 StringBuilder 來有效率地組合 HTML 字串，並將解析後的 EDI 資料填入其中。最佳實踐：使用 StringBuilder 當需要組合複雜或多行字串時，System.Text.StringBuilder 效能遠高於傳統的字串相加 (& 或 +)，且程式碼更清晰。範例一：產生 EDI 850 (新採購單) 的信件內容假設你已經將 EDI 850 解析後的資料存放在一個自訂的類別 OrderInfo 中。 ' --- 假設你有一個這樣的類別來存放訂單資料 --- Public Class OrderInfo Public Property PONumber As String Public Property OrderDate As Date Public Property CustomerName As String Public Property ShipToAddress As String Public Property LineItems As List(Of OrderItem) End Class Public Class OrderItem Public Property LineNumber As Integer Public Property SKU As String Public Property Description As String Public Property Quantity As Integer Public Property UnitPrice As Decimal End Class ' --- 這是產生信件內文的 Function --- Imports System.Text Public Function Generate850Body(ByVal order As OrderInfo) As String Dim sb As New StringBuilder() ' 使用 Inline CSS 確保在各種郵件客戶端中樣式一致 sb.AppendLine("<html>") sb.AppendLine("<body style='font-family: Arial, sans-serif; font-size: 14px;'>") sb.AppendLine($"<h1 style='color: #0056b3;'>新採購單通知：{order.PONumber}</h1>") sb.AppendLine("<p>系統已收到一筆新的採購單，詳細資訊如下：</p>") sb.AppendLine("<table style='width: 100%; border-collapse: collapse;'>") sb.AppendLine($"<tr><td style='padding: 8px; background-color: #f2f2f2; width: 120px;'><strong>客戶名稱：</strong></td><td style='padding: 8px;'>{order.CustomerName}</td></tr>") sb.AppendLine($"<tr><td style='padding: 8px; background-color: #f2f2f2;'><strong>採購單號：</strong></td><td style='padding: 8px;'>{order.PONumber}</td></tr>") sb.AppendLine($"<tr><td style='padding: 8px; background-color: #f2f2f2;'><strong>訂單日期：</strong></td><td style='padding: 8px;'>{order.OrderDate.ToString("yyyy-MM-dd")}</td></tr>") sb.AppendLine($"<tr><td style='padding: 8px; background-color: #f2f2f2;'><strong>送貨地址：</strong></td><td style='padding: 8px;'>{order.ShipToAddress}</td></tr>") sb.AppendLine("</table>") sb.AppendLine("<h2 style='margin-top: 20px; color: #0056b3;'>訂單明細</h2>") sb.AppendLine("<table style='width: 100%; border-collapse: collapse; border: 1px solid #ddd;'>") sb.AppendLine("<thead style='background-color: #0056b3; color: white;'>") sb.AppendLine("<tr>") sb.AppendLine("<th style='padding: 8px; text-align: left;'>項次</th>") sb.AppendLine("<th style='padding: 8px; text-align: left;'>SKU</th>") sb.AppendLine("<th style='padding: 8px; text-align: left;'>產品描述</th>") sb.AppendLine("<th style='padding: 8px; text-align: right;'>數量</th>") sb.AppendLine("<th style='padding: 8px; text-align: right;'>單價</th>") sb.AppendLine("<th style='padding: 8px; text-align: right;'>小計</th>") sb.AppendLine("</tr>") sb.AppendLine("</thead>") sb.AppendLine("<tbody>") For Each item In order.LineItems Dim subtotal = item.Quantity * item.UnitPrice sb.AppendLine("<tr>") sb.AppendLine($"<td style='padding: 8px; border-bottom: 1px solid #ddd;'>{item.LineNumber}</td>") sb.AppendLine($"<td style='padding: 8px; border-bottom: 1px solid #ddd;'>{item.SKU}</td>") sb.AppendLine($"<td style='padding: 8px; border-bottom: 1px solid #ddd;'>{item.Description}</td>") sb.AppendLine($"<td style='padding: 8px; border-bottom: 1px solid #ddd; text-align: right;'>{item.Quantity}</td>") sb.AppendLine($"<td style='padding: 8px; border-bottom: 1px solid #ddd; text-align: right;'>{item.UnitPrice:C}</td>") sb.AppendLine($"<td style='padding: 8px; border-bottom: 1px solid #ddd; text-align: right;'>{subtotal:C}</td>") sb.AppendLine("</tr>") Next sb.AppendLine("</tbody>") sb.AppendLine("</table>") sb.AppendLine("<p style='margin-top: 20px; font-size: 12px; color: #777;'>此為系統自動發送郵件，請勿直接回覆。</p>") sb.AppendLine("</body></html>") Return sb.ToString() End Function 如何使用它：在你原本寄信的程式碼中，這樣呼叫： ' 假設 myParsedOrder 是一個你已經填充好資料的 OrderInfo 物件 mail.Body = Generate850Body(myParsedOrder) mail.IsBodyHtml = True ' 確保設定為 True 範例二：產生 EDI 860 (採購單變更) 的信件內容 860 的重點是突顯變更。 ' --- 假設你有一個這樣的類別來存放變更資料 --- Public Class OrderChangeInfo Public Property OriginalPONumber As String Public Property ChangeReason As String Public Property ChangedItems As List(Of ChangeItem) End Class Public Class ChangeItem Public Property FieldName As String ' 例如 "數量" 或 "出貨日期" Public Property SKU As String Public Property OldValue As String Public Property NewValue As String Public Property IsCritical As Boolean ' 用於標示重要變更 End Class ' --- 這是產生信件內文的 Function --- Public Function Generate860Body(ByVal change As OrderChangeInfo) As String Dim sb As New StringBuilder() sb.AppendLine("<html><body style='font-family: Arial, sans-serif; font-size: 14px;'>") sb.AppendLine($"<h1 style='color: #d9534f;'>採購單變更通知：{change.OriginalPONumber}</h1>") sb.AppendLine($"<p><strong>變更原因：</strong> {change.ChangeReason}</p>") sb.AppendLine("<h2 style='color: #d9534f;'>變更摘要</h2>") sb.AppendLine("<table style='width: 100%; border-collapse: collapse; border: 1px solid #ddd;'>") sb.AppendLine("<thead style='background-color: #d9534f; color: white;'>") sb.AppendLine("<tr>") sb.AppendLine("<th style='padding: 8px; text-align: left;'>SKU</th>") sb.AppendLine("<th style='padding: 8px; text-align: left;'>變更欄位</th>") sb.AppendLine("<th style='padding: 8px; text-align: left;'>變更前</th>") sb.AppendLine("<th style='padding: 8px; text-align: left;'>變更後</th>") sb.AppendLine("</tr>") sb.AppendLine("</thead>") sb.AppendLine("<tbody>") For Each item In change.ChangedItems ' 如果是重要變更，整行用淡紅色標示 Dim highlightStyle As String = If(item.IsCritical, "background-color: #f2dede;", "") sb.AppendLine($"<tr style='{highlightStyle}'>") sb.AppendLine($"<td style='padding: 8px; border-bottom: 1px solid #ddd;'>{item.SKU}</td>") sb.AppendLine($"<td style='padding: 8px; border-bottom: 1px solid #ddd;'>{item.FieldName}</td>") sb.AppendLine($"<td style='padding: 8px; border-bottom: 1px solid #ddd;'>{item.OldValue}</td>") sb.AppendLine($"<td style='padding: 8px; border-bottom: 1px solid #ddd;'><strong>{item.NewValue}</strong></td>") sb.AppendLine("</tr>") Next sb.AppendLine("</tbody></table>") sb.AppendLine("<p style='margin-top: 20px;'>請相關人員確認此變更並採取相應措施。</p>") sb.AppendLine("</body></html>") Return sb.ToString() End Function 進階技巧：使用 HTML 模板當信件樣式變得非常複雜時，將 HTML 碼與 VB 程式碼混在一起會變得難以維護。更好的做法是： * 建立一個 HTML 檔案 (OrderTemplate.html) 作為模板，用特殊標記（如 {{PONumber}}, {{ItemsTable}}）當作預留位置。 * 在 VB 程式碼中讀取這個 HTML 檔案的內容。 * 用 StringBuilder 產生動態部分（如訂單明細表格）。 * 最後使用 .Replace() 方法將預留位置替換為真實資料。這種方式讓設計人員可以直接修改 HTML 模板，而不需要動到 VB 程式碼，實現了「關注點分離」。

#訂單

留言

留言分享你的想法！

Pocheng Chiu的沙龍

0會員

16內容數

Pocheng Chiu的沙龍的其他內容

2025/09/24