Outlook verschijnt niet op de voorgrond

[wieter]

Ik gebruik de mailcode van Dotchie.
Na drukken op de [Mail-knop] verschijnt de maildisplay niet op de voorgrond.
Op de taakbalk(onderaan) staat het Outlook-icoon wel te knipperen.
Eigenaardigheid:
Als ik na openen van het bestand even de VBE open, en terug sluit. Werkt alles zoals het moet.
Wie kent de oorzaak?

Private Sub CommandButton2_Click()
'Code van Dotchie
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        For Each cell In ThisWorkbook.Sheets(1).Range("I6:I750")
            If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value) = "ja" Then
                If strto = "" Then strto = stro & ";"
                strto = strto & cell.Value & ";"
            End If
        Next cell
        .To = strto
        .CC = ""
        .BCC = ""
        .Subject = Sheets(2).Range("A2").Value
        For Each cell In ThisWorkbook.Sheets(2).Range("A4:A50")
            StrBody = StrBody & cell.Value & vbNewLine
        Next
        .body = StrBody
        .Display    'Send
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[HSV]

Geen idee waarom, maar een beetje snelheid erin kan geen kwaad.

Private Sub CommandButton2_Click()
sv = Cells(5, 1).CurrentRegion
sq = Sheets(2).Range("A2", Sheets(2).Cells(Rows.Count, 1).End(xlUp))
 For i = 2 To UBound(sv)
    If sv(i, 9) Like "?*@?*.?*" And LCase(sv(i, 10)) = "ja" Then
        strto = strto & sv(i, 9) & ";"
    End If
 Next i
   For i = 3 To UBound(sq)
     StrBody = StrBody & sq(i, 1) & vbNewLine
   Next i
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = strto
        .Subject = sq(1, 1)
        .body = StrBody
        .Display    'Send
    End With
End Sub

 

[wieter]

Bedankt Harry,
Snelheid zal zeker belangrijk zijn om alle "ja's" te zoeken.
Blijft nu nog een oplossing voor het rare gedrag van outlook, dat op de achtergrond opent.
groeten wieter

 

[HSV]

Doe het eens zo Wieter.

.Display [COLOR=#ff0000]True [/COLOR]  'Send

 

[wieter]

Geen verandering Harry, Outlook opent op de achtergrond.
Alleen als ik VBE open en terug sluit , werkt alles ok.

 

[huijb]

@ wieter: Wil je je attached file even nazien op persoonlijke informatie. Dank.

 

[Severijns]

Hallo Wieter,

Geen idee wat de oorzaak is en hoe jouw probleem op te lossen is maar als ik jouw bijlage open en de mailknop activeer dan verschijnt MS Outlook gewoon op de voorgrond.
Heb je het op een andere PC of laptop geprobeerd?
Lijkt dus op een lokaal probleem of dat ergens is gedefinieerd dat MS Excel "Always on top" dient te zijn.
Overigens gebruik ik Office 365.
Zal kijken of iets kan vinden.

By the way, die tante Janne dat moet er wel een zijn

Succes,

Rob

 

[Severijns]

Wieter,

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_winother/excel-windows-stays-on-top-of-everything/d222ff91-ba4f-47c4-bf93-ce20a11cc400

Wellicht dat dit een oplossing biedt.

Rob

 

[Severijns]

Wieter,

Onderstaande code is wellicht niet de meest ideale oplossing maar werkt mogelijk wel.

Application.WindowState = xlMinimized

Dit kan er in elk geval voor zorgen dat het MS Excel venster verkleind wordt.
Hopelijk komt daarmee MS Outlook "On top".

Groet Rob

 

[wieter]

@huijb
Het bestand bevat alleen fictieve gegevens.
@Rob
Het lijkt wel een lokaal probleem. Op een andere Pc stelt het probleem zich niet.
Groeten

 

[Severijns]

Onderstaande code werkt op mijn laptop naar behoren.

Private Sub CommandButton2_Click()
sv = Cells(5, 1).CurrentRegion
sq = Sheets(2).Range("A2", Sheets(2).Cells(Rows.Count, 1).End(xlUp))
 For i = 2 To UBound(sv)
    If sv(i, 9) Like "?*@?*.?*" And LCase(sv(i, 10)) = "ja" Then
        strto = strto & sv(i, 9) & ";"
    End If
 Next i
   For i = 3 To UBound(sq)
     StrBody = StrBody & sq(i, 1) & vbNewLine
   Next i
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = strto
        .Subject = sq(1, 1)
        .body = StrBody
        .Display    'Send
    End With
Application.WindowState = xlMinimized
End Sub

Bij jou kennelijk niet.
Ik heb verder even geen idee wat het probleem zou kunnen zijn.

Succes met verder zoeken.

Rob

 

[HSV]

Bij mij zonder ook.

 

[wieter]

Als ik even de VBE open en onmiddellijk sluit is er geen probleem.
Toch lijkt het geen excel-probleem te zijn.
De vraag hoort dus hier niet thuis.
Ik zet de vraag dan ook op opgelost.