Filedialog i Outlook 2000, men hvordan

comdlg32.ocx kan vist bruges, nogen ideer anyone

lukker

Øhhh, hvad er det du vil?

/Christian
ck@officekonsulenterne.dk

ja, ville gerne have muligheden for at få en filedialog inde i Outlook 2000. ala application.filedialog

Den kan du sådan set godt få fat. Er det til en VBA Formular eller en Outlook formular?

/Christian

outlook form

Jeg har lavet e´n kode der giver brugeren mulighed for at markere et antal mails klikke på en knap, og herefter journalisere dem i msg formatet, men som det er nu har jeg valgt stien, hvor filen gemmes, der kunne jeg godt tænke mig at når brugeren klikker kommer "gem som" dialogboksen frem , startende i en af mig defineret mappe. og med msg formatet valgt.

Håber ikke det er sort snak..

Høreklik på din Toolbox når du er inde for at designe din formular. Her vælger du "Custom Controls"
I den liste der fremkommer, der vælger du "Microsoft Common Dialog Control" herefter har du den til rådighed og kan kode dig op imod den ligesom du plejer at gøre i andre Office programmer.

/Christian

arg.. jeg har ikke en form, sorry, jeg laver det med et minimun bruger indblanding.

Jeg poster lige kode
Public Sub File2Xal()

    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    Dim objItem As Object
    Dim MsgTxt, fileName, savePath, fullPath As String
    Dim x, i As Integer
   
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
   
    Dim dlg As Object
  Set dlg = CreateObject("MSComDlg.CommonDialog")
  With dlg
        '.InitDir = "c:\test\"
        '.MaxFileSize = 500 'Sets the maximum file size allowed
        .ShowSave
  End With


   
    savePath = "c:\test\"
   
    i = 1
    MsgTxt = "You have selected items from: "
   
   
    For x = 1 To myOlSel.Count
       
    MsgTxt = MsgTxt & myOlSel.Item(x).Subject & ";"
    Set objMail = myOlSel.Item(x)
    fileName = myOlSel.Item(x).Subject
    fullPath = savePath + testOkTegn(fileName) + ".msg"
   
   
        If fs.fileExists(fullPath) = True Then
                While fs.fileExists(fullPath) = True
                    fullPath = savePath & i & " - " & testOkTegn(fileName) + ".msg"
                    i = i + 1
                Wend
               
                MsgBox fullPath
                If InStr(LCase(objMail.BillingInformation), "<arkiveret>") = 0 Then
                    objMail.SaveAs fullPath, olMSG
                    objMail.BillingInformation = "<arkiveret>"
                    objMail.Save
                End If
        Else
       
        ' Hvis filen ikke eksisterer oprettes den på normalvis
            If InStr(LCase(objMail.BillingInformation), "<arkiveret>") = 0 Then
                objMail.SaveAs fullPath, olMSG
                objMail.BillingInformation = "<arkiveret>"
                objMail.Save
            End If
       
        End If
         
       
   
    'objItem.SaveAs "c:\test\" & fileName & ".msg", olMSG
       
    Next x
   
    MsgBox MsgTxt
   
   
   
End Sub

her er lidt áf det hele ;-)

Hmm - nu forstår jeg det ikke rigtigt længere :-) Du har jo allerede din saveAs boks og den virker?

nej ikke her

har du msn?
Til alle andre jeg poster komplet kode hernår det virker

se mail længere oppe

nogen der kan gennemskue hvad der mangler i at få vist dialog boksen..
Jeg prøver at afvikle denne kode:
Dim dlg As Object
  Set dlg = CreateObject("MSComDlg.CommonDialog")
  With dlg
        .InitDir = "c:\test\"
        .MaxFileSize = 500 'Sets the maximum file size allowed
        .ShowSave
  End With


  fullPath = dlg.fileName

i Outlook 2003, men der sker ikke noget som helst, hvis jeg prøver at afvikle trinvis så kommer følgende fejl.
"et eller flere kontrolelementer er ikke korrekt licenseret"

Points oprettes selfølgelig igen + 40point