Outlook - Button Text hinzufügen

Hallo Zusammen,

ich möchte das erste Mal in Outlook ein Script über einen Button einbauen.
In Excel habe ich mir diverse Helferlein über den Macro Recorder angelegt und dann manuell im Rahmen meiner Möglichkeiten angepasst.

Ich habe im Netz und Foren geschaut und finde nicht das richtige. Es gibt da zwei Versionen im Netz.
Einmal öffnet es eine neue HTML-Email und fügt Text ein oder er nimmt eine bestehende und fügt den Text über "SendKeys" ein.

Ich möchte das in einer HTML-Email (bei der Antwort) über einen Button im Menü (Button habe ich bereits eingebaut) ein Text in den Body eingefügt wird,
den ich dann dabei über HTML normal formatieren kann.
Das fehlt mir bei der Version mit "SendKeys". Formatieren geht bei der anderen Version, leider öffnet er dafür aber eine neu Email.

Version 1 - Text aber in neuer HTML-Email:

Sub VorgegebenenTextDazu()

' Öffnet neue Email und fügt Text ein

Dim OlkObj As New Outlook.Application



Dim OlkFrm As Inspector

Dim OlkMli As MailItem

Dim AlterBodyText As String

Dim olApp     As Object

Dim olOldbody As String



Set olApp = CreateObject("Outlook.Application")



    With olApp.CreateItem(0)

              .GetInspector.Display

              olOldbody = .HTMLBody

              .To = "testserver.de"

              .Subject = "Test"

              .HTMLBody = "Hallo!

Anbei gewünschte Informationen.

" & _

                          "TEXT TEXT TEXT " & "

Gruß,
XXX

" & olOldbody

         

    End With



End Sub

Version 2 - Text "SendKeys" - nicht formatierbar:

Sub InsertText_BatchVersion()



SendKeys "ACHTUNG - bitte beachten!" & Chr(13) & Chr(13) & "TEXT TEXT." & Chr(13) & _

"TEXT TEXT TEXT" & Chr(13) & "TEXT TEXT TEXT TEXT : " & Chr(13) & Chr(13)



End Sub

Schon einmal vielen Dank für die Hilfe.
Viele Grüße

n.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code:

Sub BearbeiteAktiveMail()
  Dim oOlApp As Object, oMail As Object
  Dim sText As String, sBody As String
  Dim P As Integer
 
' Mein Text
  sText = "<br><br>" & String(50, "-") & "<br>Hallo,<br>hier mein Anworttext!"

' Meine Formatierung
  sText = "<span style='font-family: Lucida Handwriting;font-size:11pt;color:#000080'>" _
        & sText & "</span>"
 
  Set oOlApp = GetObject(vbNullString, "Outlook.Application")
  
  If Not oOlApp Is Nothing Then
     On Error Resume Next
     Set oMail = oOlApp.ActiveInspector.CurrentItem     ' Aktive Mail holen
     
     If Not oMail Is Nothing Then
        sBody = oMail.htmlbody                          ' Alter bodytext
        P = InStr(1, sBody, "</body>", vbTextCompare)   ' Einfügestelle ermitteln
        oMail.htmlbody = Left$(sBody, P - 1) & "<br>" & sText & Mid$(sBody, P)
     
     Else
        MsgBox "Es ist keine Mail geöffnet!", vbCritical, "Mail bearbeiten"
     End If
  End If
  
  Set oMail = Nothing
  Set oOlApp = Nothing
End Sub

Code:

Sub BearbeiteAktiveMail()
  Dim sText As String
  
  sText = "<span style='font-family: Arial;font-size:11pt;color:#000080'>" _
        & "Hallo,<br><br>hier mein Anworttext!" _
        & "</span>"
 
  On Error GoTo Fehler
  
  With GetObject(vbNullString, "Outlook.Application").ActiveInspector.CurrentItem
       .htmlbody = sText & .htmlbody
  End With
  Exit Sub

Fehler:
  MsgBox "Es ist keine Mail geöffnet!", vbCritical, "Mail bearbeiten"
End Sub

Beliebteste Forumthreads (12 Monate)

Outlook - Button Text hinzufügen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Outlook - Button Text hinzufügen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread