Como posso me avisar que estou prestes a enviar um email sem anexo no Outlook 2010?

Question

O Gmail tem esse recurso incrível, no qual ele me avisa que estou prestes a enviar um e-mail que se refere a um anexo, mas eu não anexei nada. Existe uma maneira de fazer isso no Outlook 2010 também?

Estou aberto a scripts VBA, regras personalizadas ou suplementos personalizados

    

Answer 1

O Outlook 2013 possui esse recurso integrado, portanto, não é necessário adicionar scripts ou suplementos alfandegários.

Mesmo que você peça especificamente no Outlook 2010 o seguinte script trabalhar para 2010 e versões anteriores também:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
   If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then
        If Item.Attachments.Count = 0 Then
          answer = MsgBox("There's no attachment, send anyway?", vbYesNo)
          If answer = vbNo Then Cancel = True
        End If
   End If
End Sub

Isso lhe dará um alerta parecido com o seguinte:

Pressionaryesenviaráoe-maildequalquermaneira,enquantopressionarnopararádeenviaroe-mail,permitindoquevocêanexeoanexo.

Aquiestáumaversãoatualizada.Comoasrespostascontêmmensagensanteriores,enãohámaneirarápidaefácildedeterminarondeocorpodarespostaeamensagemcitadacomeçam/terminam,issonãosolicitarárespostas:

PrivateSubApplication_ItemSend(ByValItemAsObject,CancelAsBoolean)IfInStr(1,Item.Subject,"RE:", vbTextCompare) = 0 Then
       If InStr(1, Item.Body, "attach", vbTextCompare) > 0 Then
            If Item.Attachments.Count = 0 Then
              answer = MsgBox("There's no attachment, send anyway?", vbYesNo)
              If answer = vbNo Then Cancel = True
            End If
       End If
    End If
End Sub

Também deve ser notado que em ambos os casos (meu modificado e original) qualquer e-mail original com a palavra 'attach' perguntará se você deseja anexar um arquivo.