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: 35
Registrován: srpen 12
Pohlaví: Muž
Stav:
Offline

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: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

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: 35
Registrován: srpen 12
Pohlaví: Muž
Stav:
Offline

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
  • 5 pevných, veřejných IP adres
    od pcmaker » 08 dub 2023 11:32 » v Sítě - hardware
    0
    954
    od pcmaker Zobrazit poslední příspěvek
    08 dub 2023 11:32
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    262
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Tisk z excelu mění výšky buněk
    od Moonddur » 28 dub 2023 11:50 » v Kancelářské balíky
    1
    1655
    od atari Zobrazit poslední příspěvek
    28 dub 2023 12:08
  • Při vložení DVD hlási XBox chybu "0x803f800d"
    od Zabral68 » 28 čer 2023 19:06 » v Herní konzole
    0
    1009
    od Zabral68 Zobrazit poslední příspěvek
    28 čer 2023 19:06

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů