Új hozzászólás Aktív témák

• #50295 TheSaint aktív tag

  Új Válasz 2023-01-22 07:37:34 #50295

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  TheSaint

  aktív tag

  Sziasztok!
  Worksheet Change eseménnyel kapcsolatban kérnék segítséget, nem ismerem még sajnos.
  A feladat egy oszlop (K) celláinak a változása esetén küldjön emailt az adott sor C oszlopában szereplő névhez tartozó email címre. Az emailcímet a munka1 lapon lévő L név oszlop mellett lévő M oszlopban található.
  Az emilküldés része már le van kezelve, csak az eseményfigyeléssel nem bírok:
  Sub Visszajelzes()
On Error Resume Next
'Public Sub SendEMail(
Dim MailFr As String, MailCC As String, MailTo As String, MailSubject As String, MailText As String
Dim CDOMsg As Object
Dim CDOConf As Object
Dim CDOFields As Object



Then MailFr = Munka1.Cells(i, "M")
Next i
MailTo = Munka1.Cells(2, "H")
If IsEmpty(Munka1.Cells(3, "H")) = False Then MailCC = Munka1.Cells(3, "H")
If IsEmpty(Munka1.Cells(4, "H")) = False Then MailCC = MailCC & "; " & Munka1.Cells(4, "H")
MailCC = MailCC & "; " & MailFr
MailSubject = "Visszajelzés érkezett"
If


Then
        MailText = MailText & Chr(10) & _
                   Munka2.Cells(i, "A") & "  " & Munka2.Cells(i, "B") & "  " & Munka2.Cells(i, "C") & "  " & Munka2.Cells(i, "D") & "  " & Munka2.Cells(i, "E") & "  " & Munka2.Cells(i, "F") & "  " & Munka2.Cells(i, "G") & "  " & Munka2.Cells(i, "H") & "  " & Munka2.Cells(i, "I") & Munka2.Cells(i, "J")
  Next i
End If
  
  
  'On Error GoTo ERRORHANDLER
    
  Set CDOMsg = CreateObject("CDO.Message")
  Set CDOConf = CreateObject("CDO.Configuration")
  CDOConf.Load -1    ' CDO Source Defaults
  Set CDOFields = CDOConf.Fields
  With CDOFields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.1."
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    'Anonim
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
    'Jelszóval:
    '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  '.Item("http://schemas.microsoft.com/cdo/configuration/Sendusername") = ""
  '.Item("http://schemas.microsoft.com/cdo/configuration/SendPassword") = ""
    .Update
  End With
  Set CDOMsg.Configuration = CDOConf
  CDOMsg.Subject = MailSubject
  CDOMsg.From = MailFr
  CDOMsg.To = MailTo
  CDOMsg.CC = MailCC
  CDOMsg.TextBody = MailText
  CDOMsg.Send
  
  Set CDOMsg = Nothing
  Set CDOConf = Nothing
  Set CDOFields = Nothing
End Sub

Új hozzászólás Aktív témák