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