Excel, Vba og Groupwise

Jeg vil gerne vide hvordan du gør det med outlook og VBA

Har ikke selv testet det da jeg ikke har outlook, men følgende er fundet på http://www.xldennis.com/ , en svensk hjemmeside

Sub Information_Spara_TaBort_Bilagor()
'Technical solution - working with attachments © 2003 All rights Ivan F Moala
'Used by permission and revised by XL-Dennis © 2003 All rights XL-Dennis


Dim olapp As outlook.Application
Dim olNameSpace As outlook.NameSpace
Dim olMapp As outlook.MAPIFolder
Dim olInBox As outlook.MAPIFolder, olAvd As outlook.MAPIFolder
Dim oItem As Object, oAttach As Object
Dim wbBok As Workbook
Dim wsBlad As Worksheet
Dim stMapp As String
Dim lnAntal As Long, i As Long, x As Long


Set olapp = CreateObject("Outlook.Application")
Set olNameSpace = olapp.GetNamespace("MAPI")
Set olMapp = olNameSpace.Folders("Personliga mappar")
Set olInBox = olMapp.Folders("Inbox")

'Denna mapp ligger under Inbox-mappen.
Set olAvd = olInBox.Folders("Avd")

'Här kontrollerar vi om det finns e-post eller ej i mappen.
lnAntal = olAvd.Items.Count
If lnAntal = 0 Then
MsgBox "Inga poster att importera.", vbInformation
GoTo ErrorHandlerExit
End If

'Mapp där bilagorna ska sparas separat i.
stMapp = "c:\Test\"
Set wbBok = Application.ActiveWorkbook
Set wsBlad = wbBok.Sheets("Data")

'Tar bort tidigare bilagedata.
With wsBlad
.Range("A2").CurrentRegion.ClearContents
.Range("A1:F1").Value = VBA.Array("Ärende", "Avsändare", "Mottaget", _
"Antal bilagor", "Bilaga 1", "Bilaga 2")
End With

'Här loopar vi igenom samtliga e-post i mappen "Avd"
i = 1
For Each oItem In olAvd.Items
i = i + 1

'Skriver uppgifter till arbetsbladet "Data".
With wsBlad
.Cells(i, 1).Value = oItem.Subject
.Cells(i, 2).Value = oItem.SenderName
.Cells(i, 3).Value = oItem.ReceivedTime
End With

'Om e-post har bilaga så...
Set oAttach = oItem.Attachments
If oAttach.Count <> 0 Then
For x = 1 To oAttach.Count
With oAttach

'Skriver uppgifter till arbetsbladet "Data"
With wsBlad
.Cells(i, 4).Value = oAttach.Count
.Cells(i, 4 + x) = oItem.Attachments.Item(x).FileName
End With

'Sparar bilaga i önskad mapp.
.Item(x).SaveAsFile stMapp & .Item(x).FileName

'Tar bort bilaga från e-post.
.Item(x).Delete
End With

Next x
End If
Next oItem

With wsBlad
.Columns("A:F").EntireColumn.AutoFit
End With

ErrorHandlerExit:
Set oAttach = Nothing
Set oItem = Nothing
Set olAvd = Nothing
Set olInBox = Nothing
Set olMapp = Nothing
Set olNameSpace = Nothing
Set olapp = Nothing
Exit Sub

ErrorHandler:
MsgBox "Fel nr: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit
End Sub

Tak for det - har ikke prøvet det endnu - skal lige forstå det først. Men det var jo egentligt dig der skulle have svar, det kan jeg desværre ikke give dig, da jeg ikke har meget forstand på hverken outlook og slet ikke GroupWise

Groupwise kan ikke helt sammenlignes med Outlook mht. VBA, da deres objektmodeller er ret forskellige.

Kig evt. her:

http://search.novell.com/NSearch/SearchServlet?encoding=UTF-8&template=ResultListTerseTemplate.html&numhits=25&collection=SampleCode&bbshow=true&query0=groupwise+excel&searchSelect=all+of+these+words&collection=SampleCode

og

http://developer.novell.com/ndk/doc/gwobjapi/index.html?page=/ndk/doc/gwobjapi/gwobjenu/data/h7ikbsqg.html

Tak for det

Især det sidste link ser interesant ud. Jeg forsøger at få det til at virke

itst >> Fik du det til at virke ?

itst >> Hvad er status på spørgsmålet ?