Kopírovaní řádku do emailu dle hodnot Vyřešeno
-
- Level 1
- Příspěvky: 99
- Registrován: červenec 10
- Pohlaví:
- Stav:
Offline
Re: Kopírovaní řádku do emailu dle hodnot
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ý.....
-
- Level 1
- Příspěvky: 99
- Registrován: červenec 10
- Pohlaví:
- Stav:
Offline
Re: Kopírovaní řádku do emailu dle hodnot
ale nějak se nedaří
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Kopírovaní řádku do emailu dle hodnot
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):
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
-
- Level 1
- Příspěvky: 99
- Registrován: červenec 10
- Pohlaví:
- Stav:
Offline
Re: Kopírovaní řádku do emailu dle hodnot Vyřešeno
Ahoj,
opraveno, změněno a funguje to... generuje email, kopíruje.... Díky moc oboum návštevníkům....
opraveno, změněno a funguje to... generuje email, kopíruje.... Díky moc oboum návštevníkům....
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 3
- 2177
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
- 0
- 1803
-
od luko02420
Zobrazit poslední příspěvek
02 srp 2023 14:12
-
- 1
- 1700
-
od mmmartin
Zobrazit poslední příspěvek
20 led 2024 19:21
-
-
Součet hodnot s prázdnou vedlejší buňkou Příloha(y)
od Karrex » 22 kvě 2023 17:00 » v Kancelářské balíky - 7
- 2202
-
od elninoslov
Zobrazit poslední příspěvek
23 kvě 2023 22:38
-
-
-
Ukotvení prvního a posledního řádku v tabulce.
od Kopusek » 13 pro 2023 10:50 » v Kancelářské balíky - 2
- 1694
-
od Kopusek
Zobrazit poslední příspěvek
14 pro 2023 08:55
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 1 host