Apache OpenOffice Community Forum

Code: Select all

sub SendAlert (wksym as string)
Dim eMailAddress, eSubject as string
Dim eMailer as object
Dim eMailClient as object
Dim eMessage as object

eMailAddress = "xxxxxx@yahoo.co.uk"
eSubject = "Stop Loss sell Alert"
eMailer = createUnoService("com.sun.star.system.SimpleSystemMail")

eMailClient = eMailer.querySimpleMailClient()

eMessage = eMailClient.createSimpleMailMessage()

eMessage.Recipient = eMailAddress
eMessage.Subject = eSubject
eMessage.Body = "wksym"  'temporary whilst testing
'AttachmentURL = convertToUrl("c:\users\fjcc\desktop\99Export.txt")
'eMessage.Attachement = array(AttachmentURL)
eMailClient.sendSimpleMailMessage ( eMessage, com.sun.star.system.SimpleMailClientFlags.NO_USER_INTERFACE )
End Sub

Code: Select all

Sub SendEmail_Windows

dim document as object
dim dispatcher as object
dim eMailaddress1 as string
dim eMailaddress2 as string
dim eMailaddress as string
dim eSubject as string
dim pdfattachment as string
dim partyname as string
dim Reimb as string
dim Transport as string

eMailAddress1 = thisComponent.getSheets.getByName("Invoice").getCellRangeByName("P7").getstring
eMailAddress2 = thisComponent.getSheets.getByName("Invoice").getCellRangeByName("AA2").getstring
eMailaddress = eMailaddress1 + "," + eMailaddress2
eSubject = thisComponent.getSheets.getByName("Invoice").getCellRangeByName("AA1").getstring
pdfattachment = thisComponent.getSheets.getByName("Invoice").getCellRangeByName("Y2").getstring
partyname = thisComponent.getSheets.getByName("Invoice").getCellRangeByName("M3").getstring
Reimb = thisComponent.getSheets.getByName("Invoice").getCellRangeByName("Z1").getstring
Transport = thisComponent.getSheets.getByName("Invoice").getCellRangeByName("Z2").getstring

   eMailer = createUnoService ("com.sun.star.system.SimpleSystemMail")
   eMailClient = eMailer.QuerySimpleMailClient()
   eMessage = eMailClient.createSimpleMailMessage()
   eMessage.Recipient = eMailAddress
   eMessage.body="Dear " + partyname + "," + " TEXT1 " + Transport + " TEXT2 " + Reimb + "  TEXT3 " + " TEXT4 " + " TEXT5 "

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
   eMessage.Subject = eSubject
   AttachmentURL = convertToUrl(pdfattachment)
   eMessage.Attachement = Array(AttachmentURL)
   eMailClient.sendSimpleMailMessage ( eMessage, com.sun.star.system.SimpleMailClientFlags.NO_USER_INTERFACE )
End Sub

Code: Select all

REM  *****  BASIC  *****
option explicit
dim oMessage
dim oeMailClient

sub MakeEmailService_poging
dim oServiceManager
dim oMailservice
oServiceManager = GetProcessServiceManager()
dim sServices,sServiceName
sServices="com.sun.star.system.SimpleCommandMail|com.sun.star.system.SystemMailProvider"
dim iets
for each sServiceName in split(sServices,"|")
	oMailservice= oServiceManager.createInstance(sServiceName)
	if  isnull(oMailservice)=false then exit for
next
if isnull(oMailservice) then
	print "We weten niet welke service er gebruikt kan worden. We stoppen."
	 end
end if

dim sCreateClient
dim sCreateEmailMessage
select case sServiceName
	case "com.sun.star.system.SimpleCommandMail"
		oeMailClient = oMailservice.querySimpleMailClient()  ' Feitelijk overbodig of er moet nog goed getest worden
		oMessage = oeMailClient.createSimpleMailMessage()

	case "com.sun.star.system.SystemMailProvider"
		oeMailClient = oMailservice.queryMailClient()  ' Feitelijk overbodig of er moet nog goed getest worden
		oMessage = oeMailClient.createMailMessage()
end select
oMessage.Recipient="doesnotmatter@water.com"
oMessage.subject="see the sub ject"


select case sServiceName
	case "com.sun.star.system.SimpleCommandMail"
		oeMailClient.sendSimpleMailMessage( oMessage,CreateUnoValue("long",2) )

	case "com.sun.star.system.SystemMailProvider"
		oeMailClient.sendMailMessage( oMessage,CreateUnoValue("long",2) )
end select

end sub