Otestujte tohle :
Doma mi to chodí jen do Thunderbirda - ten ale není nastaven jako výchozí. Takže když navolím hned odeslat vyskočí mi chyba a po stornování se pošta zruší. Takže chodí mi to jen na vyzkoušené "nFlag = 0", zatímco ihned odeslat je "nFlag = 1" - to musíte nastavit.
Ještě dejte pozor mám maker více a tak jsem zjistil, že doporučují počkat mezi dvěma odesláním na Wait 1000 aby se neskl klient. Já to tam nemám, ale snadno to zabudujete stejně jako více kopií nebo příloh. Přílohy mají skutčně pod URL.
Také jsem viděl rozdílnost pro Linux a Windows - je to ale jenom volání jiné služby UNO. To jsem z Linuxu netestoval, ale je možné, že Linux vezme i tohle.
Sub testSendMail
Dim aAttachement(0) As String, aCCRecipients(0) As String
sRecipient = "name@domena.xxx" 'email adresa cíle
ReDim aCCRecipients(1)
aCCRecipients(0) = "XY@ooo.xxx" 'kopie 1 jiný subjekt
'aCCRecipients(1) = "YX@aaa.xxx" 'kopie 2 jiný subjekt
sSubject = "test odeslání pošty" 'předmět
aAttachement(0) = ConvertToURL(ThisComponent.URL) 'Přepsat na URL přílohy
nFlag = 0 '0-Otevře se okno testu emailu (Thunderbird), 1-okamžitě odesílat poštu
'aAtachment ...(ThisComponent.URL) příloha jako celý tento dokument
Call subSendMail(sRecipient,sSubject,aAttachement(),nFlag)
Call subSendMailWithCC(sRecipient,aCCRecipients(),sSubject,aAttachement(),nFlag)
End Sub
Sub subSendMailWithCC(sRecipient As String,aCCRecipients,sSubject As String,aAttachements,nFlag As Integer)
' nFlag: '0-Otevře se okno testu emailu (Thunderbird), 1-okamžitě odesílat poštu
oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
oMailClient = oMailer.querySimpleMailClient()
oMessage = oMailClient.createSimpleMailMessage()
oMessage.setRecipient( sRecipient )
oMessage.setCCRecipient( aCCRecipients() )
oMessage.setSubject( sSubject )
oMessage.setAttachement( aAttachements() )
oMailClient.sendSimpleMailMessage(oMessage,nFlag)
End Sub
Sub subSendMail(sRecipient As String,sSubject As String,aAttachements,nFlag As Integer)
' nFlag: '0-Otevře se okno testu emailu (Thunderbird), 1-okamžitě odesílat poštu
oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
oMailClient = oMailer.querySimpleMailClient()
oMessage = oMailClient.createSimpleMailMessage()
oMessage.setRecipient( sRecipient )
oMessage.setSubject( sSubject )
oMessage.setAttachement( aAttachements() )
oMailClient.sendSimpleMailMessage(oMessage,nFlag)
End Sub
Pouze vzorcem asi příloha nastavit nepůjde, protože dialog pro hyperlink neobsahuje možnost přílohy. Takže doporučuji udělat si z těchto vzorců funkci kam zadáte 3 parametry - předmět, obsah a přílohu. Když tak se na to podívám.
Editoval neutr (20. 11. 2016 18:00:55)
Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ