PayPal is the easiest way to receive money online. Get one now or Click here to sign up. Sign up for PayPal and start accepting credit card payments instantly.

How to send message in non-transactional MSMQ queue using perl

&sendInbox("Body",'MSMQ-server\private$\Test');

sub sendInbox()
{
my $Body = shift;
my $Queue = shift;
my $sendMsg = Win32::OLE->new('MSMQ.MSMQMessage');
my $sendInfo = Win32::OLE->new('MSMQ.MSMQQueueInfo');

$sendInfo->{FormatName}= "direct=os:" . $Queue;

my $sendQ = $sendInfo->Open(2, 0);
$sendMsg->{Label}= "Label";


$sendMsg->{Body}= $Body;
#Send Message
$sendMsg->Send($sendQ);
$sendQ->Close;
}

1 comment:

Anonymous said...

Who knows where to download XRumer 5.0 Palladium?
Help, please. All recommend this program to effectively advertise on the Internet, this is the best program!

WebProNews Feed

eWeek - RSS Feeds

HowtoForge - Howtos and Tutorials

The Register

PayPal is the easiest way to receive money online. Get one now or Click here to sign up. Sign up for PayPal and start accepting credit card payments instantly.