Outlook VBA ... Send data til excel

Er der sat reference til Outlook?

PS: I VBA-vinduet / Tools / References / find Microsoft Outlook.. og sæt x - Ok & Gem

Noget nyt?

Hej supertekst

Undskyld jeg gørt har fået set på det nu ....

Er der sat reference til Outlook?

Ikke forstået

I VBA-vinduet / Tools / References / find Microsoft Outlook.. og sæt x - Ok & Gem

Microsoft outlook 11 objekt library har x
(Jeg kan ikke finde andre outlooks)

Noget nyt?

Nej, og endnu engang undskyld at jeg først fik set på det nu.

Hej mal

Ok - så meget haster det jo heller ikke.
Hvis der er flueben i Outlook - så er det jo i orden.

Jeg har ikke prøvet koden - men ved nærmere eftersyn tror jeg at det er fordi MItem ikke er defineret som Outlook.Mailitem, derfor kendes Sendername ikke


ref: Dim MItem As Object    'Outlook.MailItem

Har prøvet koden - den virker som den skal. MItem anvendes i for-sætningen - så "den kender sin plads" - så jeg nu.

Hvilke referencer er der ellers sat?

Jeg prøver den lige

Hmm .. det er det der med at svare uden at få læst det hele igennem.

Jeg har ikke sat nogle referencer overhovedet ...

Jeg forstår en smule VBA programmering i Excel ... men det her er for at sige det som det er ... ikke i min leaga ...

Ideen med det, var så at sige at løse det andet åbne spørgsmål som jeg har liggende ... hvor du har forsøgt at hjælpe.

Altså man kan vælge en mappe, og så sender outlook:

Afsender (mailadresse), Dato (Dato og kl.) , Svardato (Dato og kl./ingen), Svartype (videresend/besvar/ingen) fra samtlige mails i mappen til et excel regneark.

http://www.eksperten.dk/spm/915551

Jeg ved ikke om du kan fortælle mig hvad jeg skal sætte op for at få den til at køre ...

Rettelse:

Jeg forstår en smule VBA programmering i Excel ... men det her er for at sige det som det er ... ikke i min leaga ...

Der menes:

Jeg forstår en smule VBA programmering i Excel ... men det her er for at sige det som det er ... så der det her ikke i min leaga ...

Ok - måske skulle vi prøve at få samlet stumperne - så lad os prøve at fortsætte, når det bliver muligt..

@supertekst

Hvis det er mig vi venter på ... så er jeg ikke helt sikker på hvad jeg skal gøre !

Hvad er status med indeværende spørgsmål?

Så skal jeg se på 915551

Status:

Jeg kan ikke få koden til at virke ...

Outlook
Jeg har deaktiveret Macrosikkerhed (midlertidigt)
Jeg har tilføjet koden i "module1" i mappen "Modules"
Jeg har sikret at der er x i Microsoft outlook 11 objekt library

Jeg vælger en tilfældig mappe og forsøger at starte koden fra værktøjslinjen eller via funktioner -> Makro -> Makroer ... -> Afspil ->

Men koden (Getinboxdetails) startes ikke ... den skriver (som jeg også skrev i første indlæg:

Compile error
Funktion or sub not define

Med hensyn til spørgsmål 915551 ... hvis du kan få det her spørgsmål til at virke ... hvor der sendes:

Afsender (mailadresse), Dato (Dato og kl.) , Svardato (Dato og kl./ingen), Svartype (videresend/besvar/ingen) til et regneark ... så vil jeg meget gerne acceptere begge spørgsmål som besvaret.

Ok - ser på det og vender tilbage..

Hvor ligger mappen i forhold til indbakke?

Evt send et skræmprint. @-adresse under profil.

Jeg har vedhæftet et billede af Outlook her:

http://zeroup.dk/Vis/outlook38.jpg

(Jeg har, da dataen principielt er fortroligt valgt at anonymisere billedet)

Jeg har forsøgt at bruge VBA koden på forskellige mapper ... f.eks.:

mappen \indbakke\underlige mails ... eller funktionspostkassen xxx\ besvarede mails ... men samme fejl ...

Hvis det bare ser spørgsmål om at der skal stå noget bestemt ... så tilretter jeg gerne scriptet til hver mappe (altså sådan der er 8 VBA koder.

Jeg har uploadet billedet igen ... nu i ordentlig kvalitet

http://www.gratisimage.dk/graphic/images/2010/October/20/D3A2_4CBEC448.jpg

Prøv at sende den samlede kode til mig - eller vis den her.

Når jeg ser på dit billede - så er der ikke noget umiddelbart at bemærke.

Den samlede kode:

Sub Getinboxdetails()
Dim OutApp As Object    'Outlook.Application
Dim NmSpace As Object  'Outlook.NameSpace
Dim Inbox As Object    'Outlook.MAPIFolder
Dim MItem As Object    'Outlook.MailItem
Dim i As Long
Dim x As Integer
Dim Feedb As String
Set OutApp = CreateObject("Outlook.Application")
Set NmSpace = OutApp.GetNamespace("MAPI")
Set Inbox = NmSpace.GetDefaultFolder(6)
i = 1
'// In case of UNDELIVERABLES
On Error Resume Next
For Each MItem In Inbox.Items
  DoEvents
  '// Note Only looking for Items within THIS MONTH!
  If Month(MItem.Subject) = Month(Now) Then
      'If Err Then Err.Clear: GoTo N
      i = i + 1
      Cells(i, 1) = MItem.SenderName
      Cells(i, 2) = MItem.Subject
      Cells(i, 3) = MItem.UserProperties("IncidentType").Value
      Cells(i, 4) = MItem.UserProperties("IncidentDescription").Value
 
        End If
N:  Next MItem
Set MItem = Nothing
Set Inbox = Nothing
Set NmSpace = Nothing
Set OutApp = Nothing
Set Attach = Nothing
End Sub

Virker perfekt..

Der kommer ingen fejl - viser alle mails i indbakken..

Denne virker hos mig - kommer ikke videre...

Rem version 2 - skrevet i V/2007
Rem Reference sat til: Microsoft Outlook 12.0 Object Library - skal evt. justeres til 2003-versionsNr (11.0)
Rem Evt. til at forhindre "Et program forsøger..."
Rem www.contextmagic.com/express-clickyes/Free-version.htm
Rem ============================================================
Const mappenavn = "MAPPENAVN"  '<---------------- indsæt navn på mappen under indbakke!!!
Const startRæk = 2
Dim ræk As Integer, antalMails As Integer, mappen
Public Sub HentMails()
    sletPtIndhold
   
    antalMails = åbnOutlookMappe(mappenavn)
   
    ræk = startRæk
    traverserMappen antalMails

    Columns.AutoFit
End Sub
Private Sub sletPtIndhold()
    Range("A" & CStr(startRæk) & ":D65000").Select
    Selection.ClearContents
    Range("A" & CStr(startRæk)).Select
End Sub
Private Function åbnOutlookMappe(mappenavn)
Dim mailApp, nameSpace, aFold As MAPIFolder

    Set mailApp = CreateObject("Outlook.Application")
    Set nameSpace = mailApp.GetNamespace("MAPI")
    Set aFold = nameSpace.GetDefaultFolder(olFolderInbox)
   
    If mappenavn <> "" Then
        Set mappen = aFold.Folders(mappenavn)
    Else
        Set mappen = aFold
    End If
    åbnOutlookMappe = mappen.Items.Count
End Function
Private Sub traverserMappen(antalMails)
Dim afsender As String, modtaget As Date, besvaret As Date, besvarType As String
Dim mx As MailItem, handlinger As Outlook.Actions
    If antalMails > 0 Then
        Application.ScreenUpdating = False
   
        For m = 1 To antalMails
            Set mx = mappen.Items(m)
           
            afsender = mx.SenderEmailAddress
            modtaget = mx.ReceivedTime
           
            ActiveSheet.Range("A" & CStr(ræk)) = afsender
            ActiveSheet.Range("B" & CStr(ræk)) = modtaget
           
            ' besvaret mangler p.t.
            ' type besvarelse  mangler p.t.
            ræk = ræk + 1
        Next m
       
        Application.ScreenUpdating = True
    End If
End Sub

Jeg skal nok selv finde en løsning på "besvaret" og "type" men koden går desværre stadig her:

Private Sub sletPtIndhold()
    Range("A" & CStr(startRæk) & ":D65000").Select
    Selection.ClearContents
    Range("A" & CStr(startRæk)).Select
End Sub

Jeg har udfyldt ... Const mappenavn = "MAPPENAVN"
med et mappenavnet "Underlige mails"

Jeg har prøvet både med excel startet og ikke startet ...

Med uanset hvilken løsning jeg bruger kommer følgende fejlkode:

"Compiler error:

Sub or funktion not define"

og så i forståelig version

Jeg skal nok selv finde en løsning på "besvaret" og "type" men koden går desværre stadig ned her:

[i]Private Sub sletPtIndhold()
    Range("A" & CStr(startRæk) & ":D65000").Select
    Selection.ClearContents
    Range("A" & CStr(startRæk)).Select
End Sub8/i]

Jeg har udfyldt ... Const mappenavn = "MAPPENAVN"
med mappenavnet "Underlige mails" ... altså
Const mappenavn = "Underlige mails".

Jeg har prøvet både med excel startet og ikke startet ...

Med uanset hvilken løsning jeg bruger, kommer følgende fejlkode:

"Compiler error:

Sub or funktion not define"

Hvilken office-version anvender du?

En sidste mulighed, som jeg kan tilbyde, er at du sender Excel-filen med koden til mig.

Jeg beklager jeg er lidt langsom til det her ...

Jeg anvender outlook 2003 / outlook 2007 (Jeg har prøvet det på 2 maskiner)

Excel ... du mener vel outlook?

Nej - min kode ligger i Excel...

Eller også skal du sætte reference til Excel, hvis din kode er i Outlook..

Hmmm ... lykkes det ... også at forstå hinanden ...

Vil du lave et svar på den her og på

http://www.eksperten.dk/spm/915551

Så vil jeg hurtigst muligt få dem accepteret.

Mange tak.

Du får et svar på denne - 915551 lukker du selv..