|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.07.2023 19:56:02 |
Heinz |
|
|
|
23.07.2023 00:50:58 |
Gast7777 |
|
|
|
23.07.2023 00:57:09 |
Gast7777 |
|
|
|
23.07.2023 10:26:36 |
Heinz |
|
|
|
23.07.2023 14:07:19 |
Gast29656 |
|
|
|
23.07.2023 18:23:57 |
Heinz |
|
|
|
23.07.2023 18:43:42 |
Gast66456 |
|
|
|
23.07.2023 20:18:18 |
Gast60505 |
|
|
|
24.07.2023 01:44:36 |
Gast7777 |
|
|
 Variablen in einem Outlook oft-File erfassen |
26.07.2023 12:39:22 |
Gast9826 |
|
|
|
26.07.2023 15:18:24 |
Gast48442 |
|
|
Von:
Gast9826 |
Datum:
26.07.2023 12:39:22 |
Views:
213 |
Rating:
|
Antwort:
|
Thema:
Variablen in einem Outlook oft-File erfassen |
|
Hallo Heinz,
ich habe schonmal sowas erstellt.
Ich hole mir aus einer Liste den Dateinamen (mit Pfad) der Vorlage.
Diese wird geöffnet.
Du kannst dann den htmlbody auslesen, mit Replace die Platzhalter gegen deine
Variablen austauschen und wieder in die Email setzen.
Dann mit display anzeigen, damit der Versender sie kontrollieren kann.
Sub Vorlagentest()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
Dim strTemplate As String
Dim objTemplate As Object
Dim strBody As String
Dim Änderungen(1 To 4) As String
Dim lngIndex As Long
Änderungen(1) = "[Anrede],geehrter Herr"
Änderungen(2) = "[Name],Meier"
Änderungen(3) = "[Produktname],Pflaster"
Änderungen(4) = "[Absender],Gerd Schmidt"
Dim vÄ As Variant
' Pfad zur Vorlage festlegen
strTemplate = "C:\im\Test.oft"
' Vorlage versuchen zu laden
Set objTemplate = olApp.CreateItemFromTemplate(strTemplate)
' Fehler?
If objTemplate Is Nothing Then
MsgBox "Die Vorlage """ & strTemplate & """ konnte nicht geöffnet werden." _
, vbCritical + vbOKOnly, "Vorlage öffnen"
GoTo Aufräumen
End If
'Body holen
strBody = objTemplate.htmlbody
'Text Ändern
For lngIndex = LBound(Änderungen) To UBound(Änderungen)
vÄ = Split(Änderungen(lngIndex), ",")
strBody = Replace(strBody, vÄ(0), vÄ(1), , , vbTextCompare)
Next lngIndex
'Text htmlbody überschreiben
objTemplate.htmlbody = strBody
' ... und anzeigen
objTemplate.display
Aufräumen:
Set olApp = Nothing
Set objTemplate = Nothing
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.07.2023 19:56:02 |
Heinz |
|
|
|
23.07.2023 00:50:58 |
Gast7777 |
|
|
|
23.07.2023 00:57:09 |
Gast7777 |
|
|
|
23.07.2023 10:26:36 |
Heinz |
|
|
|
23.07.2023 14:07:19 |
Gast29656 |
|
|
|
23.07.2023 18:23:57 |
Heinz |
|
|
|
23.07.2023 18:43:42 |
Gast66456 |
|
|
|
23.07.2023 20:18:18 |
Gast60505 |
|
|
|
24.07.2023 01:44:36 |
Gast7777 |
|
|
Variablen in einem Outlook oft-File erfassen |
26.07.2023 12:39:22 |
Gast9826 |
|
|
|
26.07.2023 15:18:24 |
Gast48442 |
|
|