Vložení emailových adres do makra z buněk Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
Snekment
nováček
Příspěvky: 29
Registrován: srpen 12
Pohlaví: Muž

Vložení emailových adres do makra z buněk

Příspěvekod Snekment » 18 lis 2016 12:23

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



Reklama
Azuzula
Level 3
Level 3
Příspěvky: 449
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena

Re: Vložení emailových adres do makra z buněk

Příspěvekod Azuzula » 18 lis 2016 21:03

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.
► 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.

Uživatelský avatar
Snekment
nováček
Příspěvky: 29
Registrován: srpen 12
Pohlaví: Muž

Re: Vložení emailových adres do makra z buněk  Vyřešeno

Příspěvekod Snekment » 21 lis 2016 09:23

Děkuji moc funguje to skvělě . Diky Snek


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • IE11: kde uložen seznam zadaných adres/hledání do adres.řádku?
    od Herda » 07 čer 2016 12:24 » v Internet a internetové prohlížeče
    2
    243
    od Clorky
    08 čer 2016 11:14
  • Konflikt IP adres
    od DavidLony » 11 úno 2017 13:51 » v Problémy s hardwarem
    1
    92
    od ITCrowd
    11 úno 2017 23:18
  • Blokování zahraničních IP adres pomocí iptables
    od TetaCihla » 16 čer 2016 21:39 » v LiNuX a ostatní alternativní OS
    4
    416
    od faraon
    25 čer 2016 19:24
  • vloženie makra
    od Matthias17 » 06 bře 2016 18:55 » v Kancelářské balíky
    1
    177
    od cmuch
    07 bře 2016 06:23
  • Zjednodušení makra
    od Petr555 » 24 kvě 2016 19:03 » v Kancelářské balíky
    2
    257
    od Petr555
    25 kvě 2016 10:08

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host