< návrat zpět

MS Excel

Téma: odeslani mailu pomocí vba rss

Zaslal/a lopi007 2.5.2019 23:15

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 6
Poradí něgdo?
Jo a kdyby něgdo věděl jak tam namontovat i přílohu tak bych byl fakt vděčný. 9

Zaslat odpověď >
Darbujan(3.5.2019 14:04)#043282
avatar
VB konstanty vám budou k ničemu, zkusil bych do textu vrazit

\r\ncitovat
Darbujan(3.5.2019 14:07)#043283
avatar
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
avatar
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
avatar

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 6

ale na \n jsem zapomněl 9 tak snad to půjde

tak nejde 7
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
avatar
A %0A jste zkusil?citovat
lopi007(3.5.2019 16:48)#043287
avatar

Darbujan napsal/a:

A %0A jste zkusil?


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

Děkuji.

můžeme uzavřítcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje