Hallo,
Misschien is dit niet het juiste forum voor mijn vraag. Mijn excuses dan, maar als je me kan helpen hoor ik het graag.
Ik ben op zoek naar de macro code om de gegevens van cel te lezen uit een spreadsheet van Open Office. In de volgende macro code wil ik de gegevens voor cEMailAddress lezen uit een cel van Calc in plaats dat ze als vaste gegevens in de macro worden gezet. Ik zou graag willen bepalen op welke rij de cursor staat en van die rij de waarde van een bepaalde kolom inlezen.
Nu geeft 'print oView.Select(oRanges)' de waarde True. De bedoeling is dat ik een x,y coördinaat bekom die ik dan als variabele kan invullen bij oSheet.getCellByPosition(0,0) in plaats van 0,0.
Iemand een idee
Sub Main
'------ Lees inhoud van een cel
Dim oDocument As Object, oSheet As Object, oCell As Object
oDocument=ThisComponent
oView = oDocument.getCurrentController
ocell=odocument.getcurrentselection
oRanges = oDocument.CreateInstance("com.sun.star.sheet.SheetCellRanges")
print oView.Select(oRanges)
oSheet=oDocument.Sheets.getByName("Blad1")
oCell=oSheet.getCellByPosition(0,0) 'a1
'------ Maak Email klaar
' Your e-mail address goes here...
cEMailAddress = oCell.getString
cSubject = "Test Subject"
cUrl1 = ConvertToURL( "C:\dutch.dat" )
cUrl2 = ConvertToURL( "C:\dutch2.dat" )
cUr13 = ConvertToURL( "Body test" )
' Use one of the following two lines, depending on which
' mailer you want to use.
' SimpleCommandMail will use your system's command line tools to send mail.
' SimpleSystemMail will use whatever (GUI) mail client you configured in
' Tools -> Options -> OpenOffice.org -> External Programs.
' For some reason the command line mail service does not appear to work on Windows?
'
' oMailer = createUnoService( "com.sun.star.system.SimpleCommandMail" )
oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
oMailClient = oMailer.querySimpleMailClient()
oMessage = oMailClient.createSimpleMailMessage()
oMessage.setRecipient( cEMailAddress )
oMessage.setSubject( cSubject )
oMessage.setAttachement( Array( cUrl1, cUrl2 ) )
' oMessage.Body( Array( cUr13 ) )
' ...etc.
' The zero is the DEFAULTS constant from
' com.sun.star.system.SimpleMailClientFlags.
oMailClient.sendSimpleMailMessage( oMessage, 0 )
' One of the options in the SimpleMailClientFlags is an option
' to send the mail with no user interface. Just send it.
End Sub
Misschien is dit niet het juiste forum voor mijn vraag. Mijn excuses dan, maar als je me kan helpen hoor ik het graag.
Ik ben op zoek naar de macro code om de gegevens van cel te lezen uit een spreadsheet van Open Office. In de volgende macro code wil ik de gegevens voor cEMailAddress lezen uit een cel van Calc in plaats dat ze als vaste gegevens in de macro worden gezet. Ik zou graag willen bepalen op welke rij de cursor staat en van die rij de waarde van een bepaalde kolom inlezen.
Nu geeft 'print oView.Select(oRanges)' de waarde True. De bedoeling is dat ik een x,y coördinaat bekom die ik dan als variabele kan invullen bij oSheet.getCellByPosition(0,0) in plaats van 0,0.
Iemand een idee
Sub Main
'------ Lees inhoud van een cel
Dim oDocument As Object, oSheet As Object, oCell As Object
oDocument=ThisComponent
oView = oDocument.getCurrentController
ocell=odocument.getcurrentselection
oRanges = oDocument.CreateInstance("com.sun.star.sheet.SheetCellRanges")
print oView.Select(oRanges)
oSheet=oDocument.Sheets.getByName("Blad1")
oCell=oSheet.getCellByPosition(0,0) 'a1
'------ Maak Email klaar
' Your e-mail address goes here...
cEMailAddress = oCell.getString
cSubject = "Test Subject"
cUrl1 = ConvertToURL( "C:\dutch.dat" )
cUrl2 = ConvertToURL( "C:\dutch2.dat" )
cUr13 = ConvertToURL( "Body test" )
' Use one of the following two lines, depending on which
' mailer you want to use.
' SimpleCommandMail will use your system's command line tools to send mail.
' SimpleSystemMail will use whatever (GUI) mail client you configured in
' Tools -> Options -> OpenOffice.org -> External Programs.
' For some reason the command line mail service does not appear to work on Windows?
'
' oMailer = createUnoService( "com.sun.star.system.SimpleCommandMail" )
oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
oMailClient = oMailer.querySimpleMailClient()
oMessage = oMailClient.createSimpleMailMessage()
oMessage.setRecipient( cEMailAddress )
oMessage.setSubject( cSubject )
oMessage.setAttachement( Array( cUrl1, cUrl2 ) )
' oMessage.Body( Array( cUr13 ) )
' ...etc.
' The zero is the DEFAULTS constant from
' com.sun.star.system.SimpleMailClientFlags.
oMailClient.sendSimpleMailMessage( oMessage, 0 )
' One of the options in the SimpleMailClientFlags is an option
' to send the mail with no user interface. Just send it.
End Sub
Laatst bewerkt:
