Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: In antwoord tekst uit originele mail plaatsen

  1. #1
    Senior Member
    Geregistreerd
    2 december 2012
    Vraag is opgelost

    In antwoord tekst uit originele mail plaatsen

    Hallo,
    Is het mogelijk om in Outlook een antwoord te genereren waarbij tekst uit de originele mail gebruikt wordt. Bv,

    Originele mail;
    Ik wil graag een ruimte reserveren.
    Naam: Truus Test
    Mail: t.test@test.nl
    Datum: 1-1-2020
    Tijd: 12:00-14:00uur



    Antwoord zou moeten zijn;
    Beste (hier de Naam uit originele mail),

    De volgende reservering is voor je gemaakt;
    Datum: (hier de datum uit de originele mail)
    Tijd: (hier de tijd uit de originele mail)
    Ruimte: Dit zelf in te vullen


    Met vriendelijke groet,
    enz enz


    iemand een idee?
    Groet Marc

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Dat kan denk ik wel, als je bijvoorbeeld een eigen formulier gebruikt. Zeker als je dat formulier kunt vullen met velden die je kunt terug herleiden uit de mail. Anders zul je iets moeten programmeren waarmee je de complete bodytekst scant, en de juiste regels (en antwoorden) filtert. Die zet je dan (met dezelfde procedure) terug in het antwoord.
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Senior Member
    Geregistreerd
    2 december 2012
    Dank je, Dan ga ik stoeien met formulieren.

    Programmeren kan ik niet, dus mocht bovenstaand niet lukken dan kom ik wel terug.
    Groet Marc

  4. #4
    Senior Member
    Geregistreerd
    2 december 2012
    Hier ben ik weer.
    Kan iemand me met bovenstaand helpen met behulp van VBA?
    Groet Marc

  5. #5
    Senior Member
    Geregistreerd
    2 december 2012
    Ik heb het antwoord gevonden. Hieronder de code voor wie ook zoiets wil.

    Sub TestCode()
    Dim olMsg As MailItem
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    ReplyToMail olMsg
    lbl_Exit:
    Exit Sub
    End Sub


    Sub ReplyToMail(olItem As Object)
    Dim olOutMail As MailItem
    Dim olInsp As Outlook.Inspector
    Dim wdDoc As Object
    Dim oRng As Object
    Dim oTable As Object
    Dim oCell As Object
    Dim strName As String, strDate As String
    Dim strTime As String, sLocation As String
    If TypeName(olItem) = "MailItem" Then
    With olItem
    Set olInsp = .GetInspector
    Set wdDoc = olInsp.WordEditor
    Set oRng = wdDoc.Range
    Set oTable = oRng.Tables(1)
    Set oCell = oTable.Cell(3, 3).Range
    oCell.End = oCell.End - 1
    strName = oCell.Text


    Set oTable = oRng.Tables(2)
    Set oCell = oTable.Cell(3, 3).Range
    oCell.End = oCell.End - 1
    strDate = oCell.Text


    Set oCell = oTable.Cell(4, 3).Range
    oCell.End = oCell.End - 1
    strTime = oCell.Text & " t/m "


    Set oCell = oTable.Cell(5, 3).Range
    oCell.End = oCell.End - 1
    strTime = strTime & oCell.Text


    Set olOutMail = olItem.Reply
    With olOutMail
    Set olInsp = .GetInspector
    Set wdDoc = olInsp.WordEditor
    Set oRng = wdDoc.Range
    .Display
    oRng.collapse 1
    oRng.Text = "Beste " & strName & "," & vbCr & vbCr & vbCr & _
    "Dank je wel voor je lokaalaanvraag. We hebben voor je gereserveerd:" & vbCr & vbCr & _
    "Datum : " & strDate & vbCr & vbCr & _
    "Lokaal: "
    oRng.collapse 0
    oRng.Select 'sets the cursor here
    oRng.InsertAfter vbCr & vbCr & _
    "Lesuur : " & strTime & vbCr & vbCr & vbCr & _
    "Met vriendelijke groet," & vbCr & vbCr &_

    '.Send 'restore after testing
    End With
    End With
    End If
    lbl_Exit:
    Set olOutMail = Nothing
    Set olItem = Nothing
    Set olInsp = Nothing
    Set wdDoc = Nothing
    Set oRng = Nothing
    Exit Sub
    End SubEnd Sub
    Groet Marc

  6. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren