automailing via makro af regneark calc

Brugerhjælp og support til makroer i LibreOffice Basic

Moderators: Lodahl, LarsBrandi

Post Reply
arne høgild
Posts: 1
Joined: Wed Sep 15, 2010 10:28

automailing via makro af regneark calc

Post by arne høgild » Wed Sep 15, 2010 10:33

Hvordan skal formularen lyde / programeringen så regneark ved click på softknap automatisk sender renearket til en bestemt mailadresse ? :) :)
Arne

Jens S
Posts: 1091
Joined: Sun Mar 25, 2007 21:42

Post by Jens S » Wed Sep 15, 2010 18:27

Hej
Prøv med dette:

Code: Select all

Sub SendMail
   Dim aAttachement(0) As String
   oModtager = "jens@mail.dk"
   oEmne = "Her er mit regneark"
   aAttachement(0) = ConvertToURL(ThisComponent.URL)
   Tilstand = 0   '0-åbner mailen før afsendelse,  1-sender mailen omgående
   Call subSendMail(oModtager,oEmne,aAttachement(),Tilstand)
End Sub

Sub subSendMail(oModtager As String,oEmne As String,aAttachements,Tilstand As Integer)
   oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
   oMailClient = oMailer.querySimpleMailClient() 
   oMessage = oMailClient.createSimpleMailMessage()
   oMessage.setRecipient( oModtager )
   oMessage.setSubject( oEmne )
   oMessage.setAttachement( aAttachements() )
   oMailClient.sendSimpleMailMessage(oMessage,Tilstand)
End Sub
Tilpas modtager og emne til dit behov

mvh
Jens

Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest