Visual Basic

for each job in jobs

   Await Compose

next

Function Compose()

   Build Message
   Attach PDF
   Build smtpClient
   Send
   Log send error

End Function

Function Send

   SendAsync

End Function

jkirkerx wrote:

It's OK to await again?

Await smtpClient.SendMailAsync(message).ConfigureAwait(False)

'This is the new sendEngine
Dim sE As New SendEngine()
sE.SendEmailAsync(smtpClient, mailMessage, 5)
AddHandler sE.SendEmailCompleted, _
Sub(sender As Object, e As SendEmailCompletedEventArgs)

  Console.WriteLine(e.Error)
  If (e.Error IsNot Nothing) Then

      model.Error_Text = e.Error.HResult
      model.Error_Text = e.Error.Message.ToString
      model.TimeStamp_Error = DateTime.Now()
      ef_model_smtp_resend.Write_Smtp_Send_Record(model)

  End If
End Sub

com1 = My.Computer.Ports.OpenSerialPort("COM1")
        com1.ReadTimeout = 10000
        Do
            Dim Incoming As String = com1.ReadLine()
            If Incoming Is Nothing Then
                Exit Do
            Else
                returnStr &= Incoming & vbCrLf
            End If

Public Class Form1

    Dim myport As Array
    Dim strWeight As String

    Public Delegate Sub myDel(ByVal txtBox As TextBox)
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        myport = SerialPort.GetPortNames

        AddHandler SerialPort1.DataReceived, AddressOf SerialPort1_DataReceived
    End Sub

    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        txtBox.Invoke(New myDel(AddressOf UpdateTextBox), New Object() {txtBox})
    End Sub

    Public Sub UpdateTextBox(ByVal UpDateTextBox As TextBox)

        Dim bytes As Integer = SerialPort1.BytesToRead
        Dim Buffer(bytes) As Byte

        SerialPort1.Read(Buffer, 0, bytes)

        strWeight = System.Text.Encoding.Default.GetString(Buffer)
        txtBox.AppendText(strWeight)
        GetTareandWeight(strWeight)

    End Sub

    Private Sub GetTareandWeight(ByVal weight As String)

        Dim strWeights() As String
        Dim newWeight As String = Replace(weight, " ", " ")
        strWeights = Split(weight, ",")

        txtBox2.Text &= newWeight & vbCrLf
        txtBox2.Text &= strWeights.Length.ToString & vbCrLf
        txtBox2.Text &= "Tare: " & strWeights(1).ToString
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        SerialPort1.PortName = "COM5"
        SerialPort1.BaudRate = 9600
        SerialPort1.DataBits = 8
        SerialPort1.Parity = Parity.None
        SerialPort1.StopBits = StopBits.One
        SerialPort1.Handshake = Handshake.None
        SerialPort1.Open()

        SerialPort1.Write(vbCr)

    End Sub

Public Sub AddCustomHeader(ByVal mail As MailItem, ByVal headerName As String, ByVal headerValue As String)
    Dim prop As String = "http://schemas.microsoft.com/mapi/string/{00020386-0000-0000-C000-000000000046}/" + headerName
    mail.PropertyAccessor.SetProperty(prop, headerValue)
End Sub

List-Unsubscribe[^]:

plain

List-Unsubscribe: <mailto:unsubscribe-espc-tech-12345N@domain.com>, <http://domain.com/member/unsubscribe/?listname=espc-tech@domain.com?id=12345N>

Public Class ameContext
  Inherits DbContext

  <ObsoleteAttribute("The default connection factory should be set in the config file or using the DbConfiguration class. (See <a href="http://go.microsoft.com/fwlink/?LinkId=260883">http://go.microsoft.com/fwlink/?LinkId=260883</a>)")>
  Public Shared Property DefaultConnectionFactory As IDbConnectionFactory

  Public Sub New(ByVal conString As String) '<< I added the conn string to use

      MyBase.New(conString)
      'SQLite doesn't support auto database creation 
      Entity.Database.SetInitializer(Of ameContext)(Nothing)

  End Sub
End NameSpace

Imports System.Data.SQLite
Imports System.Data.SQLite.EF6

Imports System.Linq
Imports System.Text
Imports System.Data.Entity.Core.Common
Imports AccountMate_DAL

Namespace System.Data.SQLite.Entity

    Public Class SQLiteConfiguration
        Inherits DbConfiguration

        Public Sub New()

            SetProviderFactory("System.Data.SQLite", SQLiteFactory.Instance)
            SetProviderFactory("System.Data.SQLite.EF6", SQLiteProviderFactory.Instance)
            SetProviderServices("System.Data.SQLite", CType(SQLiteProviderFactory.Instance.GetService(GetType(DbProviderServices)), DbProviderServices))

        End Sub
    End Class
End NameSpace

Imports System.Data.Common
Imports System.Data.Entity.Infrastructure
Imports System.Data.SQLite

Public Class SQLiteConnectionFactory
    Implements IDbConnectionFactory

    Public Function CreateConnection(ByVal connectionString As String) As DbConnection Implements IDbConnectionFactory.CreateConnection

        Return New SQLiteConnection(connectionString)

    End Function

End Class

<entityFramework>
    <defaultConnectionFactory type="AccountMate_DAL.SQLiteConnectionFactory, AccountMate_DAL" />
  </entityFramework>  

<add name="SQLiteConnection" connectionString="data source=d:\Amp\SIS\AMExtras.sqlite" providerName="System.Data.SqlLite.EF6" />

Dim context = new ameContext(connstring)