• 0

VB.Net service to send xml email from MSMQ

Asked by i11usive,

 Share

Question

Grand Master

i11usive

Posted
Posted

I have created a MSMQ server and written VB.NET code to drop an XML file into a private queue in the following format:

<emailRequest>

<senderName>Tester</senderName>

<senderAddr>sender@thedomain.com</senderAddr>

<subject>Test Subject</subject>

<body>This is a test</body>

<recipients>receiver@domain.com</recipients>

</emailRequest>

I need some guidance on creating a VB.NET windows service that checks the private queue for messages, processes them out sends them out via our SMTP server. I've had a good look around the Internet but can't find a definitive guide. Can you point me in the right direction, or even provide some code examples?

6 answers to this question

Recommended Posts

  • 0
Mentor

garethevans1986

Posted
Posted

Have a look at NServiceBus - http://www.nservicebus.com/

We use this, pain in the ass to debug but will do what you need MSMQ wise but without having to interact with the MSMQ, NSB does it all for you.

GE

  • 0
Collaborator

joddie191

Posted
Posted

We use MSMQ together with C# to do something similar. I've never used NServiceBus, but it sounds a bit complicated for what you're trying to do.

Writing my own handler for writing and reading for the MSMQ took about 100 lines of code. The handler will fetch an item from the queue send it for processing.

Since my code is C# I won't share it, but there's some basic useage info using Visual Basic on this page: http://www.microsoft.com/msj/0599/msmq/msmq.aspx

Hope that helps you out.

  • 0
Experienced

Litespeed

Posted
Posted

I don't know MSMQ, but since you've written the code to put the XML message into the queue, you should be able to write the code to get it out and process it.

Once you have your batch of XML messages, you will want to loop through them and use the System.Net.Mail.SmtpClient class to do the actual heavy lifting.

Here is a snippet from MSDN:

Public Shared Sub CreateTestMessage2(ByVal server As String)

Dim [to] As String = "jane@contoso.com"

Dim [from] As String = "ben@contoso.com"

Dim message As New MailMessage([from], [to])

message.Subject = "Using the new SMTP client."

message.Body = "Using this new feature, you can send an e-mail message from an application very easily."

Dim client As New SmtpClient(server)

' Credentials are necessary if the server requires the client

' to authenticate before it will send e-mail on the client's behalf.

client.UseDefaultCredentials = True

Try

client.Send(message)

Catch ex As Exception

Console.WriteLine("Exception caught in CreateTestMessage2(): {0}", ex.ToString())

End Try

End Sub

I imagine you would call this Sub from inside your loop.

Question, with MSMQ can you queue up objects or is it limited to XML? If it can handle objects, maybe adding MailMessage objects directly into the queue might make the service a bit simpler. You would then only have to pull out all the MailMessage objects and fire them at .Send() method. Either way, you are going to have to create MailMessage objects on one side of MSMQ.

  • 0
Collaborator

joddie191

Posted
Posted

With MSMQ you can queue anything as long as you know how you serialized it. You can even put objects of different types into the same queue, and the queue also has a priority system you can take advantage of (urgent mails can get high pri and will be withdrawn from the queue before other mail).

If more than one program will access the queue, raw objects are perhaps not the best way to go. You'll be better off with XML then, since the job of actually setting up the Message for sending is not the hard part of this program.

This topic is now closed to further replies.
 Share
Go to question listing

  • Posts

    • Windows 11 Font Frustration!!!

      By margrave · Posted

      I know vlc does ... never used the other one you mentioned.
    • Google Gemini challenges ChatGPT with new 'Scheduled Actions' feature

      By pradeepviswav · Posted

      Google Gemini challenges ChatGPT with new 'Scheduled Actions' feature by Pradeep Viswanathan Back in January, OpenAI announced the ability for users to schedule tasks in ChatGPT. With scheduled tasks, users can set up ChatGPT to run automated prompts and proactively notify them on a scheduled basis. ChatGPT tasks are currently supported by the o3 and o4-mini models and are available on ChatGPT Web, iOS, Android, and macOS. For example, users can set up tasks like, “Can you send me a briefing on tech industry news each morning at 8 AM?” or “Remind me on June 10th about my friend's birthday.” Today, Google announced a similar feature for Gemini users, called scheduled actions. This feature works much like ChatGPT tasks. To set up a scheduled action, users can simply ask Gemini to perform a task at a specific time using either text prompts or voice input. Gemini also supports recurring actions. If needed, users can manage their scheduled actions within the settings page. This new scheduled actions feature is available to users on Gemini paid plans, including Google AI Pro or Ultra subscriptions, as well as Google Workspace business and education plans. ChatGPT currently has a limit of 10 active tasks at a time. Unfortunately, Google has not yet disclosed any limitations for Gemini's scheduled actions. If users reach the task limit in ChatGPT, they can pause or delete an existing task to create a new one. Hopefully, Google will offer similar task management options for Gemini users. As these scheduled task features continue to evolve, they are poised to further solidify the role of AI assistants in managing users' daily workflows.
    • Atomic Heart is getting a sequel and an MMO RPG spin-off

      By excalpius · Posted

      RUBIK!
    • Lies of P: Overture expansion gets a surprise release, now available for $30

      By excalpius · Posted

      That's not Pinocchio. That's a twink boy with a robot arm. Even the puppet is a lie in Lies of P!
    • Windows 11 Font Frustration!!!

      By +Edouard · Posted

      I have a question on W11. Do VLC Player ( not the Store version ) and QBitorrent work with W11?

  • Recent Achievements

    • Week One Done
      daelos earned a badge
      Week One Done
    • One Month Later
      daelos earned a badge
      One Month Later
    • Mentor
      Karlston went up a rank
      Mentor
    • One Month Later
      EdwardFranciscoVilla earned a badge
      One Month Later
    • One Month Later
      MoyaM earned a badge
      One Month Later

  • Popular Contributors

    1. 1
      +primortal
      492
    2. 2
      snowy owl
      254
    3. 3
      +FloatingFatMan
      252
    4. 4
      ATLien_0
      212
    5. 5
      Xenon
      150
    Show More

  • Tell a friend

    Love Neowin? Tell a friend!