' Geocel DevMailer 1.51
	' VBScript Usage Example
	' (c) 1999, Geocel International, Inc.

	' Create DevMailer Object
	 Set Mailer = CreateObject("Geocel.Mailer")

	' Add first SMTP server
	 Mailer.AddServer "mail",25
	
	' Set Sender Information
	 Mailer.FromAddress = "support@geocel.com"
	 Mailer.FromName = "Geocel Support"

	' Add a recipient to the message
	 Mailer.AddRecipient "you@yourdomain.com","You"

	' Set the Subject and Body
	 Mailer.Subject = "Welcome to DevMailer"

	 Mailer.Body =	"Test Message Body Line 1" & VbCrLf & _
			"Test Message Body Line 2" & VbCrLf

	' Send Email - Perform Error Checking
	bSuccess = Mailer.Send()

	If bSuccess = False Then
		If Mailer.Queued = False Then
			Response.Write "Could not send message..queueing failed!"
		Else
			Response.Write "Could not send message..queued instead!"
		End If
	Else
		Response.Write "Message Sent Successfully!"
	End If
	

 


	' Geocel DevMailer 1.51
	' Visual Basic Usage Example
	' (c) 1999, Geocel International, Inc.

	' Create DevMailer Object
	 Set Mailer = CreateObject("Geocel.Mailer")

	' Add first SMTP server
	 Mailer.AddServer "mail",25 
	
	' Set Sender Information
	 Mailer.FromAddress = "support@geocel.com"
	 Mailer.FromName = "Geocel Support"

	' Add a recipient to the message
	 Mailer.AddRecipient "you@yourdomain.com","You"

	' Set the Subject and Body
	 Mailer.Subject = "Welcome to DevMailer"

	 Mailer.Body =	"Test Message Body Line 1" & VbCrLf & _
			"Test Message Body Line 2" & VbCrLf

	' Send Email - Perform Error Checking
	bSuccess = Mailer.Send()

	If bSuccess = False Then
		If Mailer.Queued = False Then
			MsgBox( "Could not send message..queueing failed!" )
		Else
			MsgBox( "Could not send message..queued instead!" )
		End If
	Else
		MsgBox( "Message Sent Successfully!" )
	End If

 

// DevMailer C++ Example - (c) 1999 Geocel International
//
// This is an example of using DevMailer with C++
// 
// This uses the #import method of importing a type library.
// You must have a copy of dvmailer.tlb in order to use this 
// method.  
//
#include <windows.h> 
#include <stdio.h>
#include <comdef.h>

#import "dvmailer.tlb" no_namespace 

int main(int argc, char* argv[])
{

	int success=
	  

	 0;	

		OleInitialize( NULL

		); try

		{_COM_SMARTPTR_TYPEDEF(Imailer,

		__uuidof(Imailer));ImailerPtr
		imp("Geocel.Mailer");imp->AddServer(_bstr_t("mailhost.geocel.com"),25);
				imp->put_FromAddress(_bstr_t("benc@geocel.com")); imp->AddRecipient(_bstr_t("benc@geocel.com"),

				_bstr_t("BenCamp")); imp->put_Subject(_bstr_t("Test
		Subject"));imp->put_Body(_bstr_t("this is a test"));

		success = imp->Send();
	}
	catch (_com_error ce)
	{
		TCHAR *tc;
		tc=(char *)ce.ErrorMessage();
		printf("COM Error: %s",ce.ErrorMessage());
		OleUninitialize();
		return 0;
	
	}

	OleUninitialize();

	if(success)
	{
		printf("Successfully sent message.");
	} else
	{
		printf("Sending of message failed.");
	}
	
	return 1;
}

 

sub send_mail {
 
	use OLE;
	$DevMailer = CreateObject OLE 'Geocel.Mailer';
 
	$DevMailer->AddServer ("mail.domain.com",25);
    
	$DevMailer->AddRecipient ("you\@domain.com","Your Name");

	$DevMailer->{FromName}  = "Geocel Support";
	$DevMailer->{FromAddress}  = "support\@geocel.com";

	$DevMailer->{Subject} = "Welcome to DevMailer"; 
    
    		
    
	$DevMailer->{Body} = "Message Body\r\nLine 2\r\n";
	$DevMailer->{Body} = $DevMailer->{Body} . "Line 3\r\n"
	$success = $DevMailer->Send();

	if(! $success) {
		print "Could not send message, please check C:\\TEMP\\GEOCEL.LOG \n"
		print "for more information.\n"; 	
	}
 
}