Quantcast
Channel: Xojo Programming Forum - Latest topics
Viewing all articles
Browse latest Browse all 3798

Sending mail via DNSMadeEasy

$
0
0

I am trying to send an email out using a dedicated SMTP service called DNSMadeEasy. Unfortunately, I can’t get it to go. Any ideas on how to remedy this or diagnose the issue. This is using xojo 2024r1.1.

Note that we added a message ID because in AP1 we added it in order to get the mail sent.

We use DNSMadeEasy (a paid service) so that our users can submit Feedback requests via email without having to configure their local SMTP server.

Code fragment as follows:

mailsocket = New SMTPSecureSocket
mailsocket.Address = "smtp1.dnsmadeeasy.com"
mailsocket.Port = 7725
MailSocket.SSLConnectionType = SSLSocket.SSLConnectionTypes.TLSv12
MailSocket.SMTPConnectionType = SMTPSecureSocket.SMTPConnectionTypes.SSLTLS
MailSocket.SSLEnabled = True
mailsocket.Username = "my username"
mailsocket.Password = "my password"

var cOSVersion As String = GetOSVersioin()
var uuidCurrent as New UUIDMBS
var cUUID as String = StrTran(StrTran(uuidCurrent.ValueFormattedString,"{",""),"}","")
var messageID as String = "<"+cUUID+"@smtp1.dnsmadeeasy.com>"
mail.Headers.AppendHeader("Message-ID", messageID)
mail.fromAddress = """" + tfName.Text.Trim + """" + "<feedback@smtp1.dnsmadeeasy.com>"
mail.Headers.AddHeader("Reply-To",tfEmail.Text.Trim)
mail.Subject = tfSubject.Text
mail.FromAddress = tfEmail.Text.Trim

11 posts - 5 participants

Read full topic


Viewing all articles
Browse latest Browse all 3798

Trending Articles