Kopírovaní řádku do emailu dle hodnot

[saabturboclub]

Ahoj, ok, zkusím to ještě vložit a nakombinovat s něčím jiným, kde se mi pošta pouští, ale díky moc, nápad to je dobrý takto řešený.....

[saabturboclub]

ale nějak se nedaří

[navstevnik]

S pouzitim uvedenych odkazu na pouziti CDO tazatele na jinych poradnach problemy s odesilanim e-mailu vyresili. Zkousel jsi i jineho poskytovatele pripojeni?
Doplneno 24.11.:
Pokud mas vychozi postu Outlook a funguje, zkus pouzit misto puvodni procedury Sub CDO_Mail_Small_Text(StrSubject As String, Strbody As String) toto (zmen i ve volajici procedure):

Kód: Vybrat vše

Option Explicit

Sub SendMail(StrSubject As String, Strbody As String)
  Dim StrTo As String
  Dim HLink As String

  ' adresat
  StrTo = "mailova@adresa.cz"

  ' vytvorit hyperlink
  HLink = "mailto:" & StrTo & "?"
  HLink = HLink & "subject=" & StrSubject & "&"
  HLink = HLink & "body=" & Strbody

  ' zavolat Outlook - vychozi posta
  ActiveWorkbook.FollowHyperlink HLink
  Application.Wait (Now + TimeValue("0:00:04"))
  ' odeslat - over a pripadne zmen
  SendKeys "%s", True

End Sub

[saabturboclub]

Ahoj,
opraveno, změněno a funguje to... generuje email, kopíruje.... Díky moc oboum návštevníkům....