automailing via makro af regneark calc

Brugerhjælp og support til makroer i LibreOffice Basic

Redaktører: Lodahl, LarsBrandi

Besvar
arne høgild
Indlæg: 1
Tilmeldt: 15. sep 2010 11:28

automailing via makro af regneark calc

Indlæg af arne høgild » 15. sep 2010 11:33

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

Jens S
Indlæg: 1091
Tilmeldt: 25. mar 2007 22:42

Indlæg af Jens S » 15. sep 2010 19:27

Hej
Prøv med dette:

Kode: Vælg alt

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

Besvar

Hvem er online

Brugere der viser dette forum: Ingen og 1 gæst