automailing via makro af regneark calc

[arne høgild]

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

[Jens S]

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