VBA Openoffice problem

VBA Openoffice problem 04.04.2019. u 08:49 · pre 92 meseca #1

Potrebna mi je pomoc u vezi ovog koda.

Code:

Sub SimpleMailTo (email as string,iznos as double,poruka as string)
    poruka="Poštovani" & chr(13) & "U prilogu maila..."

    Dim launcher as object
    Dim eAddress, eSubject, eBody, CCeAddr, BCCeAddr, aHTMLanchor as string

    launcher = CreateUnoService("com.sun.star.system.SystemShellExecute")

    eAddress = email
    CCeAddr = "[email protected]"
    BCCeAddr = "[email protected]"
    eSubject = "This is the Subject"
    ebody = poruka

    aHTMLanchor = "mailto:" & eAddress & "?cc=" & CCeAddr & "&subject=" & eSubject & "&body=" & ebody
    launcher.execute(aHTMLanchor, "", 0)

End Sub

Macro služi da pokrene e-mail klijent i da napiše poruku u okviru njega.
Imam problem u vezi tela maila. Naime sve radi kako treba, ali u telu maila neće da mi poruku upiše u 2 reda, već sve upiše u jednom redu.

Umesto:
Poštovani,
U prilogu maila...

U mail klijentu bude ispisano:
Poštovani, U prilogu maila.

Dakle sve piše u jednom redu, kao da samo spajam stringove.

Ne znam gde je problem ali pretpostavljam da se on javlja u poslednjem redu programa:

Code:
launcher.execute(aHTMLanchor, "", 0)

zbog aHTMLancor komande, pa da se u HTML-u novi red ne obeležava sa chr(13).

Re: VBA Openoffice problem 04.04.2019. u 09:16 · pre 92 meseca #2

chr(13) nije novi red.
Na Win sistemima koristi se kombinacija CR LF ( chr(13) chr(10) )
a na Linuxima samo chr(10)

Ako je po defaultu mail html, onda treba koristiti tag za novi red, ili označiti paragrafe

Dakle neko od ovih rešenja

1. poruka="Poštovani" & chr(13) & chr(10) & "U prilogu maila..."
2. poruka="Poštovani" & chr(10) & "U prilogu maila..."
3. poruka="Poštovani U prilogu maila..."
4. poruka="PoštovaniU prilogu maila..."

Re: VBA Openoffice problem 04.04.2019. u 09:31 · pre 92 meseca #3

Na žalost ne radi ni jedna varijanta.
Evo šta dobijem u mailu kada redom ubacim promene:
1. PoštovaniU prilogu maila...
2. PoštovaniU prilogu maila...
3. Poštovani U prilogu maila...
4. PoštovaniU prilogu maila...

Re: VBA Openoffice problem 04.04.2019. u 10:10 · pre 92 meseca #4

Ne znam u čemu je kvaka ali uspeo sam sa ovim kodom, pa ako nekom zatreba...

Code:
Sub Main
   DIM MailClient, MailAgent, MailMessage AS Object
   MailAgent = CreateUnoService("com.sun.star.system.SystemMailProvider")
   MailClient = MailAgent.queryMailClient()
      MailMessage = MailClient.createMailMessage()
      MailMessage.Recipient = "[email protected]"
      MailMessage.Subject = "This is a test Subject"
      MailMessage.Originator = "[email protected]"
      MailMessage.Body = "This is a string placeholder for the text of the body of the email ... Signed, Dave" & chr(13) & chr(10) & "Novi red"

   MailClient.sendMailMessage(MailMessage, 0)

End Sub

Re: VBA Openoffice problem 04.04.2019. u 11:26 · pre 92 meseca #5

Dakle ipak je trebalo chr(13) i chr(10)

Ona na šta nisam obratio pažnju je da se kompletan mail stavlja u URL, a tu ne može da bude specijalnih znakova.
Eventualno, parametru body može da se (možda) prenese novi red kao %0D%0A (što predstavlja u heksadecimalnu sistemu bajtove 13 i 10), ali drugo rešenje je ono što treba koristiti.

Drugi način je mnogo bolji nego prvi, jer se direktno radi sa Mail objektom, umesto da se poziva u jednoj liniji kao web PUT metod.

1

Re: VBA Openoffice problem 04.04.2019. u 15:28 · pre 92 meseca #6

Taman mislim da sam gotov kad...

Imaš li neko rešenje za sledeći problem:
U telu maila lepo ispiše slovo "š" ali neće da predstavi slova "ć" i "č" već ih napiše kao "c"?

Varijanta sa Chr(263) ne daje rezultate.

Update. Sad sam probao, prihvata sva slova osim "č","ć" kako velikih tako i malih kao i malo slovo "đ" a veliko hoće da stavi.

Forum kao aplikacija na telefonu

Srodne teme