Ahoj,
poradí někdo s tím, jak má ve VB excelu vypadat generovaný email po stisku tlačítka? Nevím, jestli tak (viz příloha) je to nejlépe psané. Jak má v tělu emailu vypadat, když chci poslat odkaz? Šlo by v předmětu nebo tělu emailu vložit kód, aby se generoval automaticky vložený dnešní den (př.6.6.2010)? Jak by mělo vypadat napsání odkazu? Viz příloha a záložka odkaz, to kdybych tam chtěl vložit….aby vždycky odkaz na soubor bral z aktuální umístěné složky, kde bude i uložen tento soubor(složka uložení se každý den mění,proto odkazuje na soubory,uložené s tímto souborem,kde se názvy nemění)…. a je jednoduché aby se vložil i nějaká část do emailu z přiloženého excelu? nenašel jsem moc na internetu jak psát právě „generovaný“ email….
Díky
VB a email Vyřešeno
-
- Level 1
- Příspěvky: 99
- Registrován: červenec 10
- Pohlaví:
- Stav:
Offline
VB a email Vyřešeno
- Přílohy
-
- email.xlsm
- (18.83 KiB) Staženo 13 x
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: VB a email
Vhodna procedura by mohla treba vypadat takto (netestoval jsem, je vedro na padnuti - 33 ve stinu, snad se doplazim k pivu), v editoru VBA vloz do modulu listu obsahujiciho tlacitko (prikazove tlacitko vloz z Ovladacich prvku, nikoliv Formulare, tlacitko ma nazev cmdSendMail):
Kdyz zadas do vyhledavace CreateObject("outlook.application"), dostanes radu odkazu (Google i prelozi) resicich tuto problematiku
Kód: Vybrat vše
Option Explicit
Private Sub cmdSendMail_Click()
Dim ol As Object
Dim myItem As Object
Dim adresat As String, kopie As String, predmet As String, telo As String
Dim katalog As String, Clls() As Variant, i As Byte, j As Byte
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(0)
adresat = "yyy@yyy.cz"
kopie = "xxx@xxx.cz"
predmet = "Ranní stav: " & Now ' pridan casovy udaj
Clls = Me.Range("b7:d11").Value ' pole bunek z listu
katalog = ActiveWorkbook.Path & "\" ' aktualni katalog pro pripojeny soubor
telo = "Ahoj, posílám dnešní ranní stav" & vbCrLf & vbCrLf ' prvni cast zpravy
' do tela pridat obsah z bunek b7:d11
For i = 1 To UBound(Clls, 1)
For j = 1 To UBound(Clls, 2)
telo = telo & Clls(i, j) & vbTab
Next j
telo = telo & vbCrLf
Next i
With myItem
.To = adresat
.CC = kopie
.Subject = predmet
.Body = telo
.Attachments.Add katalog & "nazev" & ".xlsx" ' pripojit soubor
.NoAging = True
.ReadReceiptRequested = True
.OriginatorDeliveryReportRequested = True
.display
.send
End With
Set ol = Nothing
Set myItem = Nothing
End Sub
Kdyz zadas do vyhledavace CreateObject("outlook.application"), dostanes radu odkazu (Google i prelozi) resicich tuto problematiku
-
- Level 1
- Příspěvky: 99
- Registrován: červenec 10
- Pohlaví:
- Stav:
Offline
Re: VB a email
Ahoj,
zítra zkusím v práci, ale předem moc dík
jo,jo,vedro je pekelné
zítra zkusím v práci, ale předem moc dík
jo,jo,vedro je pekelné
-
- Level 1
- Příspěvky: 99
- Registrován: červenec 10
- Pohlaví:
- Stav:
Offline
Re: VB a email
tak díky moc, fungovalo to, zbytek si najdu na netu, jak si psal, díík
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 3686
-
od KubaCZE
Zobrazit poslední příspěvek
21 úno 2024 20:00
-
-
Phishingovy utok aneb email odesilatele Příloha(y)
od drobino » 15 pro 2023 08:22 » v Vše ostatní (sw) - 15
- 2094
-
od 28nitro28
Zobrazit poslední příspěvek
17 pro 2023 20:12
-
-
-
Jak připojit obrázek do podpisu na email od "Seznam.cz" Příloha(y)
od Zabral68 » 08 zář 2023 17:25 » v Komunikace na internetu - 6
- 3935
-
od atari
Zobrazit poslední příspěvek
11 zář 2023 17:47
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů