Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Outlook: recordatori automàtic a l'oblidar fitxers adjunts en missatges

Pot ser un mal de cap per oblidar-se d'afegir fitxers adjunts, però recordeu als destinataris que revisin els fitxers adjunts al cos del missatge de correu electrònic. Aquí presentarem dos trucs sobre com es recorda automàticament quan envieu un missatge de correu electrònic que pot ser que falti fitxers adjunts a Microsoft Outlook.

Recordeu automàticament l'oblit dels fitxers adjunts a l'Outlook 2013 / 2016

Recordeu automàticament l'oblit dels fitxers adjunts a Outlook 2007 i 2010

elimineu tots els contactes duplicats d'una o diverses carpetes de contactes en perspectiva

De vegades, podem afegir de forma repetida els mateixos contactes, com es pot eliminar els contactes duplicats d'una o diverses carpetes de contactes? Kutools per Outlook's Duplicate Contacts la funció pot eliminar o combinar ràpidament contactes duplicats basats en correus electrònics, nom complet o altres criteris d'una o més carpetes de contactes. Feu clic per obtenir una prova gratuïta de 45 dies.
doc elimineu els contactes duplicats 1
Kutools for Outlook: amb desenes d'accessoris de Outlook útils, gratuïts per intentar sense limitacions en 45 dies.
Kutools per Outlook: 100 + Noves eines avançades per a Outlook.
Pestanya d'Office: Activa l'edició i la navegació amb pestanyes a l'oficina, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menú Classic: Porta menús antics i barres d'eines cap enrere a Office 2007, 2010, 2013, 2016 i 2019.

fletxa blau dreta bombollaRecordatori automàtic a l'oblidar fitxers adjunts a l'Outlook 2013 / 2016

Microsoft Outlook 2013 admet la funció d'advertir-lo automàticament quan envieu un missatge de correu electrònic que pot ser que falti fitxers adjunts.

Pas 1: feu clic al botó Dossier > opcions.

Pas 2: al quadre de diàleg Opcions d'Outlook, feu clic a la icona mail a la barra esquerra.

Pas 3: aneu al enviar missatges i seguiu consultant l'opció de Avisa'm quan envieu un missatge que pot faltar un fitxer adjunt.

Pas 4: feu clic al botó OK botó per sortir d'aquest quadre de diàleg.

A continuació, Microsoft Outlook 2013 o 2016 us avisarà automàticament si us pot oblidar els fitxers adjunts.

Per exemple, introduïu el text de "verifiqueu els fitxers adjunts","veure fitxers adjunts", Etc, en el cos del missatge, però no inseriu fitxers adjunts al fitxer accessori camp. Quan feu clic a la icona enviar , apareixerà un quadre de diàleg d'advertència per dir que és possible que hagis oblidat adjuntar un fitxer. Vegeu la següent captura de pantalla:


fletxa blau dreta bombollaRecordatori automàtic a l'oblidar fitxers adjunts a Outlook 2007 i 2010

Microsoft Outlook 2007 i 2010 no admeten avisar automàticament si podeu oblidar-ne els fitxers adjunts. Una macro VBA us pot ajudar a adonar-se'n.

Pas 1: premeu la tecla Alt + F11 claus per obrir la finestra Microsoft Visual per a aplicacions.

Pas 2: Expendeu el Projecte 1 a la barra esquerra i feu doble clic a ThisOutlookSession per obrir-lo.

Pas 3: enganxeu el següent codi a la finestra ThisOutlookSession.

VBA: advertència, si no s'introdueix un fitxer adjunt

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long

On Error GoTo handleError

iIndex = InStr(Item.Body, "attach")

If iIndex > 0 And Item.Attachments.Count = 0 Then

retMB = MsgBox("You may have forgotten to attach a file." & vbCrLf & vbCrLf & "Do you still want to continue?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If retMB = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
End If

End Sub

Pas 4: feu clic al botó Desar botó a la barra d'eines.

A partir d'ara, si afegiu text de "accessori"Al cos del missatge, però no adjunteu fitxers, es mostrarà el recordatori d'advertència per indicar-vos que heu oblidat adjuntar un fitxer quan feu clic a enviar botó Veure captura de pantalla:



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l&#39;anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Pierre · 1 years ago
    Has anyone got this to work? I've added this code per the instructions above, enabled macros, but nothing. The code doesn't do anything.
  • To post as a guest, your comment is unpublished.
    Natasha · 1 years ago
    Hi I have used this and its working great but I noticed that if someone responds to me and then I reply it searches the whole trail of emails rather than just the one being sent. Is there a way to change this?

    Thanks
  • To post as a guest, your comment is unpublished.
    Echo · 1 years ago
    Great help! :lol: it helps a lot! many thanks!
    • To post as a guest, your comment is unpublished.
      DAN · 1 years ago
      Here's everything, sorry it looks like some of it got cut off in the previous message...

      Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
      Dim retMB As Variant
      Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String
      Dim iIndex, i, trueCount As Long

      On Error GoTo handleError
      i = 1
      strEnd = InStr(Item.Body, "From:")

      If strEnd 0 Then
      strTrunc = Left(Item.Body, strEnd)
      Else:
      strTrunc = Item.Body
      End If
      'Debug.Print strTrunc

      If Item.Attachments.Count 0 Then
      iIndex = Item.Attachments.Count
      trueCount = Item.Attachments.Count
      'Debug.Print iIndex
      'Debug.Print trueCount
      Do While i
      • To post as a guest, your comment is unpublished.
        Jeremy · 1 years ago
        Hi Dan! Looks like your second post cut off at the same place. Not sure if there's a character limit in the forum...maybe try splitting the code between posts?
  • To post as a guest, your comment is unpublished.
    DAN · 2 years ago
    First off, thanks. I Incorporated this into our office that runs on 2010. However, we found that if someone had sent an email initially with the word attached and after multiple replies the macro would still count the initial "attach". Big problem with long email convo's you would keep being prompted to put an attachment due to the original email. Thoughts?
    • To post as a guest, your comment is unpublished.
      DAN · 2 years ago
      [quote name="DAN"]First off, thanks. I Incorporated this into our office that runs on 2010. However, we found that if someone had sent an email initially with the word attached and after multiple replies the macro would still count the initial "attach". Big problem with long email convo's you would keep being prompted to put an attachment due to the original email. Thoughts?[/quote]


      Thought I'd share a solution we came up with in my office on this one. This will make it so that pictures added to the email or that may be found in someone's signature will not count as an attachment. And it only takes a count of your most recent email, not the whole body.

      Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
      Dim retMB As Variant
      Dim strBody, strEnd, strTrunc, strAttach, strFtype, strIndex As String
      Dim iIndex, i, trueCount As Long

      On Error GoTo handleError
      i = 1
      strEnd = InStr(Item.Body, "From:")

      If strEnd 0 Then
      strTrunc = Left(Item.Body, strEnd)
      Else:
      strTrunc = Item.Body
      End If
      'Debug.Print strTrunc

      If Item.Attachments.Count 0 Then
      iIndex = Item.Attachments.Count
      trueCount = Item.Attachments.Count
      'Debug.Print iIndex
      'Debug.Print trueCount
      Do While i
      • To post as a guest, your comment is unpublished.
        Michael Marcotte · 1 years ago
        I know this thread is a couple months old, so I'm hoping you are still following. For some reason, I'm unable to see your comment in its entirety. It is getting cut off at "Do While i". Is there any way you can repost or send via email?

        Thanks in advance!
  • To post as a guest, your comment is unpublished.
    Alex · 2 years ago
    Is it possible to look for more than one word? F.e. checking for both "attach" and "enclosed"

    Thank you
    • To post as a guest, your comment is unpublished.
      Chelsea Williams · 2 years ago
      in this section of the code...

      iIndex = InStr(Item.Body, "attach")

      you can add in more variables or "strings".

      Ex: iIndex = InStr(Item.Body, "attach", "attachment", "attaching")

      ... and so on. Make sure you separate each one with a comma however