Avatar billede Djinn_DK Novice
24. november 2016 - 09:32 Der er 10 kommentarer

Sende kvittering i Outlook

Hej,
jeg leder efter en funktion der gør at når jeg modtager en E-mail hvor der er billeder i fra en bestemt person, så skal Outlook sende en kvittering eller autosvar retur, der indeholder hvem der skal modtage den og hvor mange billeder den indeholder.

f.eks.

Jeg modtager 2 billeder i en mail fra jens@jens.dk og den skal så sende e-mail retur til jens@jens.dk, hvor der står at jeg har modtaget 2 billeder.

Er dette muligt?
Avatar billede supertekst Ekspert
24. november 2016 - 12:09 #1
Via VBA-programmering er det muligt.
Skal svarmail sendes automatisk eller ved modtagers foranstaltning?
Avatar billede Djinn_DK Novice
24. november 2016 - 12:49 #2
okay, tak :-D
Svaret skal først sendes når modtageren åbner mailen.
Avatar billede supertekst Ekspert
25. november 2016 - 10:57 #3
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.
Avatar billede Djinn_DK Novice
28. november 2016 - 07:57 #4
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.
Avatar billede supertekst Ekspert
28. november 2016 - 09:54 #5
Endnu et spørgsmål:
I forbindelse med "identifikation" af afsender, er det AfsenderNavn eller AfsenderEmail, der skal testes på?
Avatar billede Djinn_DK Novice
28. november 2016 - 09:56 #6
det er afsender E-mail der skal testet på
Avatar billede supertekst Ekspert
28. november 2016 - 10:10 #7
Ok
Avatar billede supertekst Ekspert
28. november 2016 - 15:12 #8
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
Avatar billede Djinn_DK Novice
28. november 2016 - 15:53 #9
Hej Supertekst,

1000 tak for koden, jeg tester den lige af i morgen og så får du lige et svar :-)
Avatar billede supertekst Ekspert
28. november 2016 - 17:52 #10
Ok
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester