makro - odesilani e-mailu

[keczemysz]

Dobrý den,

chtěl bych vás požádat o pomoc týkající se zápisu makra v excelu.

Ctěl bych aby se automaticky odeslal mail daným uživatelů při splnění podmínky například kdyz v bunce A1 bude "taveni nebo odlevani", tak aby zkopíroval buňku s názvem oblasti,která ve sloupci B1 a odeslal mail s těmito informacemi uživateli např. tomas@domena.cz. Uživatelé pro doručení mailu budou pořád stení.
Jen jedna věc, řádky budou postupně přibývat a je nutno, že pokud jednou bude odeslaný e-mail, z daného řádku, tak ať excel znova po otevření sešitu neodesila e-maily.

Jinak přikládám zapis makra, pro samotné odesilání:

Sub Send_Email_Using_VBA2()
Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = "automaticky odesílaný email:"
Email_Send_From = Sheets("ABC").Range("A1").Value
Email_Send_To = Sheets("ABC").Range("A2").Value
Email_Cc = ""
Email_Bcc = ""
Email_Body = Sheets("ABC").Range("A3").Value
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.send
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub

Předem Vám moc děkuji za pomoc.

S pozdravem Adam

[Reklama]