Dim recipients As New List(Of [String])() From {Emailx + ""}
Dim customArgs As New Dictionary(Of String, String)()
customArgs.Add("campaign_id", "ewCID9999")
customArgs.Add("Customer_ID", "ewCUSID123")
Dim myMessage = New SendGridMessage()
myMessage.AddTo(recipients)
myMessage.From = New MailAddress(fromAddress) 'fromAddress
Dim tReply = New MailAddress("myaddress@mydomain.com")
myMessage.Subject = "TEST NEW USER"
myMessage.Html = "TEST HTML <br /><br /><br />LB"
myMessage.AddUniqueArgs(customArgs)
myMessage.ReplyTo = tReply
Dim credentials = New NetworkCredential(sgUsername, sgPassword)
' Create a Web transport for sending email.
Dim transportWeb = New Web(credentials)
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.