Mail viewport

[Snouzuless]

Hallo,

Ik heb een VBA geschreven waardoor Excel adhv een button bepaalde cellen verzend naar een mail adres.
Dit werkt prima, maar hij geeft een fout melding als je het 'gelijk' nogmaals uit wilt voeren na een wijziging oid.

Sub Knop3_Klikken()
   ActiveSheet.Range("B10:E15").Select
   
   ActiveWorkbook.EnvelopeVisible = False
   
   With ActiveSheet.MailEnvelope
      .Introduction = "tekst"
      .Item.To = "mail"
      .Item.Subject = "tekst"
      .Item.Send
   End With
End Sub

Foutmelding:


Mocht iemand een oplossing hiervoor hebben dan zou dat top zijn!

Alvast Bedankt!

 

[edmoor]

Om tot een oplossing te komen moeten we uiteraard ook de betreffende fout weten, anders schiet het niet op.

 

[Snouzuless]

Alstu

 

[edmoor]

Maak er eens dit van:

Sub Knop3_Klikken()
   ActiveSheet.Range("B10:E15").Select
   
   Application.ScreenUpdating = False
   ActiveWorkbook.EnvelopeVisible = True
   
   With ActiveSheet.MailEnvelope
      .Introduction = "tekst"
      .Item.To = "mail ontvanger"
      .Item.Subject = "tekst"
      .Item.Send
   End With
   ActiveWorkbook.EnvelopeVisible = False
   Application.ScreenUpdating = True
End Sub

Als dat niet naar wens is gebruik dan Outlook of CDO om een mail te maken en te versturen.

 

[Snouzuless]

Het werkt, dank je wel!