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

• #19900 novakalex aktív tag

  Új Válasz 2018-10-17 09:42:51 #19900

  Ú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

  

  novakalex

  aktív tag

  Sziasztok,

  Előírták nekünk, hogy vmi megoldást találjunk arra, hogy "Reply All"-ra menve dobjon fel egy ablakot küldés előtt, hogy biztosan küldi e az összes címzettnek a levelet.. meg is történt, találtam egy scriptet rá, jól is működik azonban naptár bejegyzésnél feldob egy olyan hibát, mikor el akarunk küldeni egy felkérést, hogy Visual Basic runtime error 438. Ez elfogadásnál is.
  

  Így néz ki a script:

  Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim str As String
  Dim j As Integer
  Dim splits() As String
  Dim lbadFound As Boolean
  lbadFound = False
  Set Recipients = Item.Recipients
  receivers = Recipients.Count
  For i = receivers To 1 Step -1
  Set recip = Recipients.Item(i)
  If InStr(1, LCase(recip), "lists.bla.com") >= 1 Then
  lbadFound = True
  End If
  Next i
  splits = Split(Item.To, ";") --------------------------- ITT ÍR KI HIBÁT, ERRE A SORRA!
  If receivers > 1 Or lbadFound Or UBound(splits) > 0 Then
  If MsgBox("Kérlek ellenőrízd a címzettek listáját! Amennyiben megfelelőek a címek a küldéshez kattints az OK gombra, ellenkező esetben Mégse.", vbOKCancel) <> vbOK Then
  Cancel = True
  End If
  End If
  End Sub

  Aki vágja mi ez, kérlek segítsen. Köszi!

  [ Szerkesztve ]

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