Outmail.Display probleem

AD1957 · 12 sep 2019

Ik krijg het niet voor elkaar om outlook geopend te houden.
Bij .Display in de code verwacht ik dat het venster van Outlook open blijft staan.
Echter: het outlook venster sluit direct/ of vrij snel en staat dan te knipperen in de werkbalk START

Code:

Private Sub CommandButton1_Click()

Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
    
      strbody = "<B>BETREFT: </B>" & "onderhoud aan gastoestel fabrikaat/type: " & "<B>" & UserForm6.TextBox13.Value & "</B><br><br>" & _
              "Geachte Heer/Mevr. " & Sheets("Blad1").Range("K1").Value & "<br><br>" & _
              "Het is inmiddels weer een jaar of zelfs nog langer geleden dat wij onderhoud hebben gepleegd aan bovengenoemd gastoestel.<br>" & _
              "Om " & "<B>VEILIGHEID </B>" & "en een goed " & "<B>RENDEMENT </B>" & "te kunnen blijven garanderen is jaarlijks onderhoud noodzakelijk.<br><br>" & _
              "Wij hebben ons de vrijheid genomen om een nieuw onderhoud in te plannen op dd: " & "<H1><B>" & TextBox1.Value & " --  " & ComboBox1.Value & "</H1></B><br><br>" & _
              "Mocht deze dag en/of het tijdstip niet gelegen komen dan verzoeken wij u beleefd contact met ons op te nemen.<br><br>" & _
              "Met vriendelijke groet.<br><br>" & _
              "Uw onderhoudsbedrijf<br><br>" & _
               ComboBox2.Value

    

    With OutMail
        
        .To = ActiveCell.Offset(, 9).Value 'UserForm6.TextBox19.Value
        .Subject = "ONDERHOUD GASTOESTEL"
        .HTMLBody = strbody
        .Display
'        .Save
'        .Send
'        Application.WindowState = xlMaximized
    End With
    

Set OutMail = Nothing
Set OutApp = Nothing

 With DatumOnderhoud
   .TextBox1 = ""
   .ComboBox1 = ""
   .ComboBox2 = ""
   .Hide
End With

End Sub

In het voorbeeldbestand:
klick op een debiteurennummer in kolom A
Dan knop "mailen afspraak voor onderhoud"

alphamax · 13 sep 2019

Omdat geen outlook versie vermeldt is, google eens "outlook draft message closes".
Misschien dat hier iets staat, zie https://social.technet.microsoft.co...ge-or-repeatable-action-to-test?forum=outlook of hier https://www.slipstick.com/problems/how-to-stop-accidentally-closing-outlook/
De code werk bij mij perfect, office2007nl en windows7en.

AD1957 · 13 sep 2019

Ik gebruik Microsoft Office 2016 Professional Plus, windows 10
Genoemde code gebruik ik in meerdere bestanden.
Het vreemde is:
Soms werkt het wel, dan weer niet, soms verschijnt outlook maar zeer kort en krijg ik niet de kans om op verzenden te klicken.
Outlook wordt niet afgesloten maar wordt geminimaliseerd.
Ik zal eens op de sites die jij aanbeveelt gaan rondsnuffelen, verwacht echter niet hier een oplossing te vinden.

p.s.
Als ik een msgbox voor de code zet schijnt het wel te werken.

Code:

msgbox"test"
set outmail = nothing

i.p.v. .Display .Send of .Save gebruiken werkt ook normaal

loek010 · 13 sep 2019

Hallo AD1957

Als ik dit stukje code weghaalt dan werkt het wel ik denk dat de code daardoor het display
scherm naar de achtergrond of te wel minimized naar de taakbalk

Code:

 With DatumOnderhoud
   .TextBox1 = ""
   .ComboBox1 = ""
   .ComboBox2 = ""
   .Hide
End With

Dus vang dat stukje code op een andere manier af

AD1957 · 13 sep 2019

Hoi Willem,
Ik heb de code aangepast, schijnt te werken.:thumb:
Nu nog eens kijken hoe dit op te lossen in de andere bestanden.

Code:

Private Sub CommandButton1_Click()

Dim strbody As String


UserForm6.Hide
Sheets("Blad1").Unprotect "dan1008"
Sheets("Blad1").Range("L1").Value = TextBox1.Value
Sheets("Blad1").Range("M1").Value = ComboBox1.Value
Sheets("Blad1").Range("N1").Value = ComboBox2.Value
Sheets("Blad1").Protect "dan1008"

Unload DatumOnderhoud

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
    
      strbody = "<B>BETREFT: </B>" & "onderhoud aan gastoestel fabrikaat/type: " & "<B>" & UserForm6.TextBox13.Value & "</B><br><br>" & _
              "Geachte Heer/Mevr. " & Sheets("Blad1").Range("K1").Value & "<br><br>" & _
              "Het is inmiddels weer een jaar of zelfs nog langer geleden dat wij onderhoud hebben gepleegd aan bovengenoemd gastoestel.<br>" & _
              "Om " & "<B>VEILIGHEID </B>" & "en een goed " & "<B>RENDEMENT </B>" & "te kunnen blijven garanderen is jaarlijks onderhoud noodzakelijk.<br><br>" & _
              "Wij hebben ons de vrijheid genomen om een nieuw onderhoud in te plannen op dd: " & "<H1><B>" & TextBox1.Value & " --  " & ComboBox1.Value & "</H1></B><br><br>" & _
              "Mocht deze dag en/of het tijdstip niet gelegen komen dan verzoeken wij u beleefd contact met ons op te nemen.<br><br>" & _
              "Met vriendelijke groet.<br><br>" & _
              "Uw onderhoudsbedrijf<br><br>" & _
               ComboBox2.Value

    

    With OutMail
        .To = ActiveCell.Offset(, 9).Value 'UserForm6.TextBox19.Value
        .Subject = "ONDERHOUD GASTOESTEL"
        .HTMLBody = strbody
        .Display
    End With
    

Set OutMail = Nothing
Set OutApp = Nothing


End Sub

VenA · 13 sep 2019

Waarom niet zo?

Code:

Private Sub CommandButton1_Click()
  Dim strbody As String
  UserForm6.Hide
  With Sheets("Blad1")
    .Unprotect "dan1008"
    .Range("L1").Resize(, 3) = Array(TextBox1.Value, ComboBox1.Value, ComboBox2.Value)
    .Protect "dan1008"
  End With
  Unload DatumOnderhoud
  strbody = "<B>BETREFT: </B>" & "onderhoud aan gastoestel fabrikaat/type: " & "<B>" & UserForm6.TextBox13.Value & "</B><br><br>" & _
              "Geachte Heer/Mevr. " & Sheets("Blad1").Range("K1").Value & "<br><br>" & _
              "Het is inmiddels weer een jaar of zelfs nog langer geleden dat wij onderhoud hebben gepleegd aan bovengenoemd gastoestel.<br>" & _
              "Om " & "<B>VEILIGHEID </B>" & "en een goed " & "<B>RENDEMENT </B>" & "te kunnen blijven garanderen is jaarlijks onderhoud noodzakelijk.<br><br>" & _
              "Wij hebben ons de vrijheid genomen om een nieuw onderhoud in te plannen op dd: " & "<H1><B>" & TextBox1.Value & " --  " & ComboBox1.Value & "</H1></B><br><br>" & _
              "Mocht deze dag en/of het tijdstip niet gelegen komen dan verzoeken wij u beleefd contact met ons op te nemen.<br><br>" & _
              "Met vriendelijke groet.<br><br>" & _
              "Uw onderhoudsbedrijf<br><br>" & _
               ComboBox2.Value

  With CreateObject("Outlook.Application").CreateItem(0)
    .To = ActiveCell.Offset(, 9).Value 'UserForm6.TextBox19.Value
    .Subject = "ONDERHOUD GASTOESTEL"
    .HTMLBody = strbody
    .Display
  End With
End Sub

AD1957 · 13 sep 2019

Hoi VenA,

Je hebt gelijk, minder tikwerk. Alhoewel kan redelijk snel tikken

Ik zet de vraag als opgelost.

AD1957 · 14 sep 2019

Vandaag toch weer hetzelfde probleem.
Zelf krijg ik het alleen opgelost door het toevoegen van een msgbox ( zie#3)

Code:

msgbox"MAIL IS VERZONDEN"
Set OutMail = Nothing
Set OutApp = Nothing

Heeft iemand nog een andere oplossing?

alphamax · 14 sep 2019

Vervang

Code:

  With CreateObject("Outlook.Application").CreateItem(0)
    .To = ActiveCell.Offset(, 9).Value 'UserForm6.TextBox19.Value
    .Subject = "ONDERHOUD GASTOESTEL"
    .HTMLBody = strbody
    .Display
  End With

Door

Code:

    Dim objOutlook As Object

    On Error Resume Next
    Set objOutlook = GetObject(, "Outlook.Application")
    On Error GoTo 0

    If objOutlook Is Nothing Then
        Set objOutlook = CreateObject("Outlook.Application")
    End If

    With objOutlook.CreateItem(0)
        .To = ActiveCell.Offset(, 9).Value    'UserForm6.TextBox19.Value
        .Subject = "ONDERHOUD GASTOESTEL"
        .HTMLBody = strbody
        .Display
    End With

de code controleert als er maar een sessie van outlook loopt, meerdere outlooksessies kunnen met elkaar in conflict raken.

AD1957 · 14 sep 2019

Goedemiddag alphamax,

Ik heb de code in het voorbeeldbestand getest, het werkt.:thumb:
Nu nog kijken of de aanpassing in mijn andere bestanden ook werkt.
Hou je op de hoogte.

AD1957 · 15 sep 2019

Goedemorgen alphamax,

Gisteren heb ik jouw code toegepast en het liep goed.

ECHTER!!!!
Na sluiten en heropenen van het bestand gaat het weer mis.

HEEL VREEMD IS
Als ik de programmacode inzie (verander helemaal niets!!!!),
dan werkt het weer als een tierelier.
Ik heb het nu div. malen geprobeerd.
Openen bestand: code werkt niet.
Ik controleer de code: en het werkt!!!!!!

p.s. de oude code werkt dan ook

alphamax · 15 sep 2019

Dan zal het ergens aan jouw systeem liggen.
De code die jij gebruikt wordt al tientallen jaren door honderden gebruikt, zonder noemenswaardige problemen.

Dus jouw probleem is.
De VBA code open een nieuw bericht, en na een poosje wordt dit bericht geminimaliseerd en staat onder in de taakbalk te knipperen.
Hoeveel knoppen staan dan in de taakbalk, 2?, een van outlook, en een van nieuw bericht?

alphamax · 15 sep 2019

Misschien houdt outlook de focus door het toevoegen van dit regeltje op het eind.

Code:

AppActivate "ONDERHOUD GASTOESTEL"

"ONDERHOUD GASTOESTEL" staat bovenin het venster van het nieuwe bericht en is hetzelfde als .subject

AD1957 · 15 sep 2019

Het bericht wordt direct geminimaliseerd en links staat maar 1 knop van outlook( even knipperend)
Wel verschijnt er rechts in de taakbalk een icoontje met de melding (outlook wordt door een ander programma gebruikt,u verbreekt de verbinding etc........
p.s. bij gebruik van .Save of .Send zijn er geen problemen.
Ik sta werkelijk voor een raadsel.

AD1957 · 15 sep 2019

Sorry, laatste bericht gemist.
Waar moet ik dat stukje code dan plaatsen? direct achter .Display ??

alphamax · 15 sep 2019

Ik ook, maar ik kan je verder niet helpen, omdat ik mijn oude pc je probleem niet kan reproduceren, succes.

alphamax · 15 sep 2019

AD1957 zei:
Sorry, laatste bericht gemist.
Waar moet ik dat stukje code dan plaatsen? direct achter .Display ??

ja dat kan, maar netter is om het te plaatsen na de "end with" daarna.

AD1957 · 15 sep 2019

Ik zal beide voorstellen eens uitproberen.
Je hoort van me.

AD1957 · 15 sep 2019

Ik heb het bestand nu div. malen gesloten en weer geopend en het blijft werken.:thumb::thumb:

Code:

    With objOutlook.CreateItem(0)
        .To = ActiveCell.Offset(, 9).Value 'UserForm6.TextBox19.Value
        .Subject = "ONDERHOUD GASTOESTEL"
        .HTMLBody = strbody
        .Display
    End With
    
AppActivate "ONDERHOUD GASTOESTEL"

Nu nog eens kijken of ik de andere bestanden ook aan de praat krijg.
Zal dan per code dit stukje moeten aanpassen.

Code:

AppActivate "ONDERHOUD GASTOESTEL"

Hartelijk dank en ik zal nog laten weten of het lukt.

AD1957 · 15 sep 2019

Hallo alphamax,

Op eentje na heb ik alle codes werkend.
Die ene komt doordat er nogal veel code na de .Display staat.
Ik zal daar nog een oplossing voor zoeken, waarschijnlijk de hele code anders opzetten.
Mocht het niet lukken dan zal ik me weer melden.

Nogmaals dank,

Outmail.Display probleem

Verenigingslid

Bijlagen

Terugkerende gebruiker

Verenigingslid

Gebruiker

Verenigingslid

Inventaris

Verenigingslid

Verenigingslid

Terugkerende gebruiker

Verenigingslid

Verenigingslid

Terugkerende gebruiker

Terugkerende gebruiker

Verenigingslid

Verenigingslid

Terugkerende gebruiker

Terugkerende gebruiker

Verenigingslid

Verenigingslid

Verenigingslid

Wij waarderen jouw privacy