Probleme mit replace nach versenden einer mail
22.10.2019 14:47:10
yummi
ich möchte per vba eine mail verschicken. Dafür habe ich mir ein Mailtemplate gebaut, in dem dann bestimmte Begriffe per reeplace ersetzt werden soillen, das klappt beim 1. mal auch alles super. Wenn ich ein 2. mal das Makro auslöse werden die Token nicht ersetzt.
Set objOut = CreateObject("Outlook.Application")
Set objMail = objOut.CreateItem(olMailItem)
For i = lStartline To lStopline
Debug.Print "strObservationtempl >" & strObservationtempl & "" & wksdata.Cells(i, 10).Value & "" & wksfill.Range(wksdata.Cells(i, 11).Value).Value & "" & strObservationtempl & "" & "
" & strstyles & "" & strText & "" _
& strlinks & "
" & strTables & "