Код VB для прикрепления outlookks для безопасной отправки

Question

Я ничего не знаю о VB.У меня есть следующий код для всплывающего напоминания, если в теле сообщения упоминается слово «вложение».Что я хочу, так это напоминание, если сообщение содержит вложение, и спрашивает, должно ли сообщение быть отправлено надежно (зашифровано).

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
‘ Pops up a reminder if the word “attach” is found but there is no attachment on your email.
Dim m As Variant
Dim strBody As String
Dim intIn As Long
Dim intAttachCount As Integer, intStandardAttachCount As Integer

On Error GoTo handleError

‘Edit the following line if you have a signature on your email that includes images or other files. Make intStandardAttachCount equal the number of files in your signature.
intStandardAttachCount = 0

strBody = LCase(Item.Body)

intIn = InStr(1, strBody, “original message”)

If intIn = 0 Then intIn = Len(strBody)

intIn = InStr(1, Left(strBody, intIn), “attachment”)

intAttachCount = Item.Attachments.Count

If intIn > 0 And intAttachCount <= intStandardAttachCount Then

m = MsgBox(“It appears that you mean to send an attachment,” & vbCrLf & “but there is no attachment to this message.” & vbCrLf & vbCrLf & “Do you still want to send?”, vbQuestion + vbYesNo + vbMsgBoxSetForeground)

If m = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox “Outlook Attachment Reminder Error: ” & Err.Description, vbExclamation, “Outlook Attachment Reminder Error”
End If

End Sub

Answer 1

Михн, я хотел опубликовать это как комментарий, но тогда он не поддерживал бы столько символов.

SLaks правильно сказать, что вы должны изучать VBA:)

ДВЕ ОСНОВНЫХ ПРЕИМУЩЕСТВА:

1) Вы изучаете новый язык

2) Завтра, если вы застряли, вы можете внести изменения самостоятельно, а не снова обращаться за помощью. Это также гарантирует, что вам не придется ждать бесконечные часы решения

Код, который вы используете, я полагаю, был изначально написан Дэном Эвансом, который проверяет слово «вложение» в .Subject и .Body письма и служит другой цели, как вы правильно упомянули выше. .

По вашему запросу см. Ниже.

ПОДСКАЗКА

Используйте item.Attachments.Count, чтобы увидеть, есть ли вложения, как показано в вашем коде выше, а затем просто зашифруйте сообщение.

ВНИМАНИЕ

Шифрование вложений - не простой процесс. Это немного сложнее, чем обычный код VBA. Так что будьте готовы к большому обучению;)

Попробуйте, и если вы застряли, просто опубликуйте код, который вы пробовали, и мы обязательно вам поможем (т.е. если вы приложите усилия для изучения языка):)

НТН

Sid