MS Excel

Téma: Odeslání emailů na základě hodnoty v buňce

Zaslal/a MirekFlix 7.2.2024 15:45

Ahoj,

mám nastaveno makro, které mi rozesílá emaily na určité emailové adresy. Potřeboval bych ho upgradovat - např. v buňce D2 jsou hodnoty 1, 2, 3, tak pošly email na adresu XX. Pokd jsou tam hodnoty 3, 4, 5, tak pošly email na adresy YX. atd.

Toto je makro, co mám vytvořené.

Sub Send_Mails()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Send_Mails")
Dim i As Integer

Dim OA As Object
Dim msg As Object

Set OA = CreateObject("outlook.application")

Dim last_row As Integer
last_row = Application.CountA(sh.Range("A:A"))

For i = 2 To last_row
Set msg = OA.createitem(0)
msg.to = sh.Range("A" & i).Value
msg.cc = sh.Range("B" & i).Value
msg.Subject = sh.Range("C" & i).Value
msg.body = sh.Range("D" & i).Value

If sh.Range("E" & i).Value <> "" Then
msg.attachments.Add sh.Range("E" & i).Value
End If

msg.send

Next i

MsgBox "All the mails have been sent successfully"

End Sub

Je to možné udělat, díky moc. Mirek

Zaslat odpověď >

elninoslov(7.2.2024 18:50)#056142

Pr.

Příloha: zip

56142_send-mail-outlook.zip (18kB, staženo 13x)

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.