• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

blanco mail open

Status
Niet open voor verdere reacties.
A

arvie76

Gebruiker
Lid geworden
14 sep 2016
Berichten
84
Hoi,

Heb zitten zoeken, maar niet direct iets gevonden wat mij verder hielp of voor mij begrijpelijk om aanpassingen te doen zodat deze voor mij werkte. Dus daarom mijn vraag.

Ik wil dat er automatisch een mail wordt geopend maar dat niet dat het actieveWorkbook meegezonden wordt. De macro die ik gemaakt hebt werkte helemaal alleen wordt het actieveWorkbook meegezonden en dat is niet wenselijk.

Code: 
Private Sub Sugindien_Click()

Dim Antw As String
    
Tekstsug = "Doormiddel van deze optie kun je suggestie's indienen m.b.t het toevoegen of aanpassen van:" & vbNewLine _
        & vbNewLine _
        & "- Steekwoord/werkzaamheden" & vbNewLine _
        & "- Tijd en aantal uitleg" & vbNewLine _
        & "- Toelichting/Let op" & vbNewLine _
        & vbNewLine _
        & "Klik op Ja voor het indienen van een suggestie en klik op nee als je een technische aanpassing/opmerking hebt." & vbNewLine _

 Antw = MsgBox(Tekstsug, vbYesNo + vbInformation, "Suggestie indienen")
 
    If Antw = vbYes Then
    FrmsugSteekwoord.Show
    Else
    
 ActiveWorkbook.SendMail "rjj.verhofstad@belastingdienst.nl", "Feedback op technische werking telinstructie versie " & Worksheets("data").Range("B3").Value & "." & Worksheets("Data").Range("C3").Value
  MsgBox "Er staat nu een mail op", vbInformation, ""
  'ActiveWorkbook.Close False
      
    
    End If
    
    
 End Sub

Heeft iemand hier een idee/suggestie?
 
Misschien dit veranderen :

Code: 
ActiveWorkbook.SendMail

in dit

Code: 
ActiveSheet.SendMail

of gebruik de code in voorbeeld met outlook mail :
 

Bijlagen

  • Send mail.xlsb
    17,3 KB · Weergaven: 21
Laatst bewerkt:
Blanco email:
Code: 
Sub BlancoMail()
    Dim OutApp As Object
    Dim Outmail As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    Set Outmail = OutApp.CreateItem(0)
    Outmail.Display

    Set Outmail = Nothing
    Set OutApp = Nothing
End Sub
 
@Edmoor

Ed we kwamen allebei op het zelfde idee met Outlook :d
 
Thnx

Hallo Edmoor en Loek010,

Wij maken gebruik van Lotus dus outlook werkt dan niet.

bij het idee van
Code: 
ActiveSheet.SendMail
krijg ik foutmelding op

Fout 438 tijdens uitvoering:

De eigenschap of methode wordt niet ondersteund door dit object

Als ik
Code: 
ActiveSheet.SendMail
er van maak krijg ik de melding

Fout 424 tijdens uitvoering:

Object vereist
 
Thnx

Dank voor jullie suggetie's en hulp.

Aangezien ik op dit moment even niet voldoende tijd/geduld en kennis heb om met info in de aangeboden link aan de slag te gaan. Heb ik even een creatieve oplossing gevonden. Doormiddel van het opnemen van een macro. Heb op info sheet een hyperlink staan met mailto die geadresseerde en onderwerp vult.

Code: 
Private Sub Sugindien_Click()

Dim Antw As String
    
Tekstsug = "Doormiddel van deze optie kun je suggestie's indienen m.b.t het toevoegen of aanpassen van:" & vbNewLine _
        & vbNewLine _
        & "- Steekwoord/werkzaamheden" & vbNewLine _
        & "- Tijd en aantal uitleg" & vbNewLine _
        & "- Toelichting/Let op" & vbNewLine _
        & vbNewLine _
        & "Klik op Ja voor het indienen van een suggestie en klik op nee als je een technische aanpassing/opmerking hebt." & vbNewLine _

 Antw = MsgBox(Tekstsug, vbYesNo + vbInformation, "Suggestie indienen")
 
    If Antw = vbYes Then
    FrmsugSteekwoord.Show
    Else
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    
    End If
End Sub

Het is misschien niet de mooiste oplossing maar het werking is wel hoe ik het wil.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan