MS Excel

Hoj Ludé,
chtěl jsem poprosit mám tento code:

Sub odeslatMail()
'odeslani mailu
Dim dotaz As Integer
dotaz = MsgBox("CHCETE VYTVOŘIT MAIL?", vbYesNo, "ODESLAT MAIL?")
If dotaz = 6 Then 'odpoved ano
Dim teloMailu As String
Dim prijemce As String
Dim prijemceKopie As String
Dim prijemceSkrytaKopie As String
Dim predmet As String
Dim sHLink As String
'vyhledat prijemce
Dim klientNazev As String
Dim radek As Integer 'urcit startovaci radek
Dim sloupec As Integer 'urcit startovaci sloupec

klientNazev = Worksheets("faktura").Range("odberatel_nazev").Value

radek = 29
sloupec = 4
'hledam klienta v db
For a = 1 To 100
If klientNazev = Worksheets("List2").Cells(radek, sloupec).Value Then
'naplnit adresata mailu
prijemce = Worksheets("List2").Cells(54, sloupec).Value
'cislo uctu
Dim cisloUctu As String
cisloUctu = Worksheets("List2").Cells(56, sloupec).Value
Dim kodBanky As String
kodBanky = "0000"
Dim varSymbol As String
Dim castka As String
If Worksheets("faktura").Range("ucelPlatby").Value = "Nájem" Then
varSymbol = Worksheets("List2").Cells(58, sloupec).Value 'platba za podnajem
castka = Worksheets("List2").Cells(40, sloupec).Value 'castka podnajmu
End If

If Worksheets("faktura").Range("ucelPlatby").Value = "Služby" Then
varSymbol = Worksheets("List2").Cells(59, sloupec).Value 'platba za sluzby
castka = Worksheets("List2").Cells(60, sloupec).Value 'castka sluzby
End If

Exit For
Else
sloupec = sloupec + 1
End If
Next a

prijemceKopie = "a@a.cz"
prijemceSkrytaKopie = ""

If Worksheets("faktura").Range("M23").Value = "podnajem" Then
predmet = "Podnájem " & Worksheets("faktura").Range("datum").Value & " a služby " & Worksheets("faktura").Range("datum").Value
Else
predmet = "Nájem " & Worksheets("faktura").Range("datum").Value & " a služby " & Worksheets("faktura").Range("datum").Value
End If

' entr = vbCrLf
teloMailu = "Dobrý den," & vbLf & vbNewLine & _
"v příloze tohoto mailu Vám zasílám fakturu pro úhradu. Tímto bych Vás chtěl požádat o úhradu každé faktury zvlášť." _
& vbCrLf & vbCrLf

sHLink = "mailto:" & prijemce & "?" & "cc=" & prijemceKopie & "&" & "bcc=" & prijemceSkrytaKopie & "&"
sHLink = sHLink & "subject=" & predmet & "&"
sHLink = sHLink & "body=" & teloMailu
ActiveWorkbook.FollowHyperlink (sHLink)

End If
End Sub

jedná se mi hlavně o tento code:

teloMailu = "Dobrý den," & vbLf & vbNewLine & _
"v příloze tohoto mailu Vám zasílám fakturu pro úhradu. Tímto bych Vás chtěl požádat o úhradu každé faktury zvlášť." _
& vbCrLf & vbCrLf

ten mi vygeneruje v mozila thunderbirdu totok:

Dobrý den,v příloze tohoto mailu Vám zasílám fakturu pro úhradu. Tímto bych Vás chtěl požádat o úhradu každé faktury zvlášť.

Je to celé v jednom řádku a nechce se mi zalamovat potola jedna

Poradí něgdo?
Jo a kdyby něgdo věděl jak tam namontovat i přílohu tak bych byl fakt vděčný.

Zaslat odpověď >

Darbujan(3.5.2019 14:04)#043282

VB konstanty vám budou k ničemu, zkusil bych do textu vrazit

\r\ncitovat

Darbujan(3.5.2019 14:07)#043283

Možná to bere jako HTML, nevím, jaký formát zprávy posíláte, pak třeba i HTML tag

<br>citovat

Darbujan(3.5.2019 14:11)#043284

A do třetice...

někdo radí i dvojici

t\n

případně (to se mi myslím kdysi osvědčilo pro Outlook):

%0A

jinak snad už jen

Chr(13) a Chr(10)citovat

lopi007(3.5.2019 14:49)#043285

Darbujan napsal/a:

A do třetice...

někdo radí i dvojici

t\n

případně (to se mi myslím kdysi osvědčilo pro Outlook):

%0A

jinak snad už jen

Chr(13) a Chr(10)

Zkoušel jsem tam namontovat i toto, ale nefachčilo to:

teloMailu = "<html><head><meta http-equiv=" & """content-type""" content="text/html; charset=UTF-8"></head><body text="#000000" bgcolor="#FFFFFF">" & "Dobrý den," & "<br>v příloze tohoto mailu Vám zasílám fakturu pro úhradu

Jo a ty znaky chr(10) ... jsem taky zkoušel

ale na \n jsem zapomněl

tak snad to půjde

tak nejde

a když si otevřu zdroják mailu tak je to v html ale nedokážu to napísat, tak aby to přechroupalo. A díval jsem se, že to umí knihovna outlooku, ale pokud nebude našroubován outlook tak ta knihovna bude v tom pc chybět, teda pokud se nepletu. A právě tomu se snažím vyhnout té knihovně.citovat

Darbujan(3.5.2019 16:10)#043286

A %0A jste zkusil?citovat

lopi007(3.5.2019 16:48)#043287

Darbujan napsal/a:

A %0A jste zkusil?

Jééééééééé fachčí to

Děkuji.

můžeme uzavřítcitovat

Téma: odeslani mailu pomocí vba

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje