In antwoord tekst uit originele mail plaatsen

Status
Niet open voor verdere reacties.

marc651

Gebruiker
Lid geworden
2 dec 2012
Berichten
175
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?
 
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.
 
Dank je, Dan ga ik stoeien met formulieren.

Programmeren kan ik niet, dus mocht bovenstaand niet lukken dan kom ik wel terug.
 
Hier ben ik weer.
Kan iemand me met bovenstaand helpen met behulp van VBA?
 
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
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan