Venster SaveAs niet altijd op de voorgrond

Status
Niet open voor verdere reacties.
A

ADvH

Gebruiker
Lid geworden
5 apr 2018
Berichten
39
Goedemiddag,

Ik heb een macro in Outlook die met een knop op de balk 'snelle toegang' de huidige geselecteerde mail in een map op de server opslaat

Code: 
Set xlApp = CreateObject("Excel.Application")
                BestandsNaam = xlApp.GetSaveAsFilename(InitialFileName:=sPath & datum & FileName, FileFilter:="Outlook Files (*.msg*), *.msg*", Title:="Save As")

Het venster dat met xlApp.GetSaveAsFilename geopend wordt verschijnt heel vaak niet in de voorgrond, maar op de achtergrond. Via Alt-Tab moet je dan het venster selecteren.

Is er een vba commando waarmee je dit altijd op de voorgrond kunt laten verschijnen, dan hoor ik het graag


Vriendelijke groet Albert
 
Probeer het eens met: xlApp.Activate
 
Dank Edmoor voor je snelle reactie!

Helaas krijg ik het hiermee niet voor elkaar. Op het moment dat het SaveAs schermpje achter de andere schermen staat blijkt het vanuit Outlook wel de focus te krijgen want outlook zelf lijkt op geen enkele muis of toetsaanslag meer te reageren. Het is alleen mogelijk met alt-Tab naar het bewuste scherm te gaan en dan of er op reageren, of het weg te klikken.

hierbij de volledige macro:
Code: 
Sub VerwerkingmailFacturen()
' Deze macro slaat de bijlagen van de geselecteerde mail op en verplaatst de mail naar een andere emailmap

    Dim item As Object
    Dim mail As MailItem
    Dim Bijlage As Attachment
    Dim attBestandsnaam As String
    Dim attPath As String
    Dim map As String
    Dim mBestandsnaam As String
    Dim mPath As String

    mPath = "P:\path1\"
    attPath = "P:\path2\"
    
    map = Application.ActiveExplorer.CurrentFolder
    If map <> "inkomende facturen" Then
        MsgBox "je staat niet in de map met inkomende facturen", vbInformation, "opdracht niet mogelijk"
        Exit Sub
    End If
    
    Application.ActiveExplorer.SelectAllItems
    For Each item In Application.ActiveExplorer.Selection
    
        If TypeName(item) <> "MailItem" Then
            MsgBox "Selecteer eerst een mailbericht...", vbInformation, "Opdracht niet mogelijk"
            Exit Sub
        End If
            'sla de bijlagen uit de mail op
            For Each Bijlage In item.Attachments
                attBestandsnaam = attPath & Bijlage.FileName
                Bijlage.SaveAsFile attBestandsnaam
            Next Bijlage
                
                'verplaats de mail met bijlage naar een archiefmap
                Set mail = item
                    FileName = Replace(mail.Subject, ":", "")
                    FileName = Replace(FileName, "/", "")
                    FileName = Replace(FileName, "\", "")
                    FileName = Replace(FileName, "<", "")
                    FileName = Replace(FileName, ">", "")
                    FileName = Replace(FileName, ";", "")
                    FileName = Replace(FileName, "*", "")
                    FileName = Replace(FileName, ":", "")
                    FileName = Replace(FileName, "?", "")
                    FileName = Replace(FileName, "|", "")
                    FileName = Replace(FileName, ".", "")
        
                mBestandsnaam = mPath & FileName
                If mBestandsnaam = "Onwaar" Then Exit Sub

                mail.SaveAs mBestandsnaam & ".msg", olMSG
                mail.Delete

    Next
    
End Sub

Groeten Albert
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan