Ersetzen mehrerer Placeholder in einem Text über VBA

[alad]

Hallo zusammen,

folgendes Problem:

In meinem E-Mail Text möchte ich [@Bestellung] und [@Name] ersetzen durch zugewiesene Strings.

Das Problem ist nun das ich es nur schaffe immer eins der beiden zu ersetzen.

Code: [Auswählen]

sTemplate = Sheets("Text").Shapes(1).TextFrame2.TextRange.Text
    '</ HMTL holen >
   
    '----< Send with Outlook >----
    Dim app_Outlook As Outlook.Application
    Set app_Outlook = New Outlook.Application
   
    '--< Email einstellen >--
    Dim objEmail As Outlook.MailItem
   
    Dim sName_Ansprech As String
    Dim sBestellung As String
    Dim sEmail_Address As String
   
   
    Dim iRow As Integer
    For iRow = 4 To 100
        If Cells(iRow, 3) = "x" Then
           
            sBestellung = Cells(iRow, 8)
            sName_Ansprech = Cells(iRow, 9)
            sEmail_Address = Cells(iRow, 2)
           
            '< Fill Placeholders >
           
            Dim sHTML As String
            sHTML = Replace(sTemplate, "[@Bestellung]", sBestellung)
            sHTML = Replace(sTemplate, "[@Name]", sName_Ansprech)
           
   

           
            '</ Fill Placeholders >
           
            '--< Send Email >--
            Set objEmail = app_Outlook.CreateItem(olMailItem)
            objEmail.To = sEmail_Address
            objEmail.Subject = sTitle
            'objEmail.HTMLBody = sHTML  '*use .HTMLBody for HTML
            objEmail.Body = sHTML       '*and .body for pure Text
            objEmail.Display False
            objEmail.Send
            '--</ Send Email >--
                   
           
        End If
    Next
       
   
   
    '< Abschluss >
    Set objEmail = Nothing
    Set app_Outlook = Nothing
    '</ Abschluss >
   
    MsgBox "Emails erstellt", vbInformation, "Fertig"
   
    '----</ Send with Outlook >----
    '-------------</ Send_Email() >-------------
End Sub
Das ganze sieht aktuell im Text so aus.

Code: [Auswählen]


Hallo [@Name] ,

ich möchte Sie an die unten Aufgeführte/n Bestellung/en erinneren.

[@Bestellung]
               

MFG

Hans Hinterspu

Leider wird hier nur der Name bzw Bestellung ersetzt, was kann ich hier tun damit ich beide Placeholder ersetzte und diese in meinen E-Mail Text habe?

Danke im Voraus.

Im Anhang findet ihr die Datei.

[maninweb]

Hallo,

statt sHTML = Replace(sTemplate, "[@Name]", sName_Ansprech) dann sHTML = Replace(sHTML , "[@Name]", sName_Ansprech) nehmen.

Gruß

[alad]

Super, vielen Dank. Dachte das wird schwieriger.