Dobrý den, mám zase jeden problem:
mám toto makro :
Sub odeslat_mejlikem()
'
' odeslat_mejlikem Makro
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = ""
.CC = ""
.BCC = ""
.Subject = "Rozpis služeb"
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Funguje skvělě jen bych potřeboval ,aby do řádku ".to" se sami doplnily adresy z otevřeného list tzn. v buňkách W70:W103 mám zapsané emailové adresy na které chci, aby tento sešit odešel. Dobré by bylo ,kdyby případné nevyplněné buňky(emailovou adresou) vynechal. Děkuji Šnek
Vložení emailových adres do makra z buněk Vyřešeno
-
- Level 3
- Příspěvky: 452
- Registrován: leden 12
- Bydliště: Země, bohužel...
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Vložení emailových adres do makra z buněk
Ahoj,
použij cyklus For Each, otestuj buňku na přítomnost adresy resp. znak "@" a odešli. Jestli nebudeš vědět jak, tak mrkni do spojleru.
použij cyklus For Each, otestuj buňku na přítomnost adresy resp. znak "@" a odešli. Jestli nebudeš vědět jak, tak mrkni do spojleru.
► Zobrazit spoiler
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.
Re: Vložení emailových adres do makra z buněk Vyřešeno
Děkuji moc funguje to skvělě . Diky Snek
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 424
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 1
- 1813
-
od atari
Zobrazit poslední příspěvek
28 dub 2023 12:08
-
- 0
- 1153
-
od Zabral68
Zobrazit poslední příspěvek
28 čer 2023 19:06
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů