Sende kvittering i Outlook

Via VBA-programmering er det muligt.
Skal svarmail sendes automatisk eller ved modtagers foranstaltning?

okay, tak :-D
Svaret skal først sendes når modtageren åbner mailen.

Er i gang med VBA-koden.
Spørgsmål: Kan der være tale om andre vedhæftede filer end billeder?
Hvis ja - hvilket "efternavn/Suffix" vil billedfilerne så have - altså navn efter punktum.

Det lyder rigtig godt og tak fordi at du vil hjælpe :-)
mailen som jeg modtager vil indeholde både en jpg og en txt fil for hvert billede der bliver sendt med, men den skal den ikke tælle med.

Endnu et spørgsmål:
I forbindelse med "identifikation" af afsender, er det AfsenderNavn eller AfsenderEmail, der skal testes på?

det er afsender E-mail der skal testet på

Ok

VBA-koden til ThisOutlookSession i Outlook:

Rem INDSÆTTES I Outlook / Udvikler / Visual Basic /  ThisOutlookSession
Rem version 1 28-11-16
Rem ===================================================================
Const mailFra = "xx@afsender.dk"              '<===== Den mailadresse, der skal reageres på ::Justeres::
Dim m As Integer
Dim antalMails As Integer, antalVedhft As Integer, antalJpg As Integer, afsenderNavn As String
Dim OlApp, Namespace
Dim myInspector As Outlook.Inspector, mailobject
Sub Application_Newmail()
    Set OlApp = CreateObject("Outlook.Application")
    Set Namespace = OlApp.GetNamespace("MAPI")
    Set cfold = Namespace.GetDefaultFolder(olFolderInbox)

    antalMails = cfold.Items.Count
   
    If antalMails = 0 Then Exit Sub
   
    For m = 1 To antalMails
        Set mailobject = cfold.Items(m)
        With mailobject
            afsenderNavn = .SenderName
            afsendermail = .SenderEmailAddress
            antalVedhft = .Attachments.Count
           
            If .UnRead = True And antalVedhft > 0 And afsendermail = mailFra Then
                antalJpg = optælAntalJpg(mailobject)
                If antalJpg > 0 Then
                    sendSvarMail
                End If
               
                .UnRead = False
                .Save
            End If
        End With
    Next m
End Sub
Private Function optælAntalJpg(mailobject)
Dim vh As Attachment
    antalJpg = 0
    For Each vh In mailobject.Attachments
        If InStr(LCase(vh.FileName), ".jpg") > 0 Then
            antalJpg = antalJpg + 1
        End If
    Next vh
    optælAntalJpg = antalJpg
End Function
Private Sub sendSvarMail()
Dim objMsg As MailItem
Dim Selection As Selection
Dim obj As Object
    Set objMsg = Application.CreateItem(olMailItem)
    With objMsg
        .To = mailFra
        .Subject = "Har modtaget" & Str(antalJpg) & " billede(r)"
'        .Display
        .Send
    End With
    Set objMsg = Nothing
End Sub

Hej Supertekst,

1000 tak for koden, jeg tester den lige af i morgen og så får du lige et svar :-)

Ok