Office: (Office 2013) Outlook eMail Betreff automatisieren?

Jetzt hat es funktioniert. Es lag tatsächlich an den Einstellung der Makros und dem damit verbundenen Neustart von Outlook. Ein großes DANKE.

 

Hallo,

ich möchte ein Script erstellen, in der lediglich shortcuts definiert werden, z.B.

#c Ausgabe Betreffzeile 1
#v Ausgabe Betreffzeile 2

Wie mache ich dies?

Vielen Dank! :-)

 

Hallo,

eine Liste könnte man so definieren:

Code:

select case left(.Subeject,2)
      case = "#c": Tx = "Betreffzeile 1"
      case= "#v": Tx = "Betreffzeile 2"
end select

.subject = Tx & Mid(.Subject, 3)

mfg

(ungeprüft)

 

Hallo Fennek

Code:

select case left(.Subeject,2)

Ich nehme an, es soll Subject heißen.
Code klappt jedoch nicht. Makros habe ich aktiviert

 

Hallo,

das sind beidesmal Superinfos, anhand deren man sofort weiß, was gemeint ist bzw. was das Problem ist.

Was das Makro von Fennek betrifft, sind bei den Fallauflistungen die "="-Zeichen überflüssig. Das dürfte aber für VBA kein Problem darstellen.
Ein Problem stellt es auf jeden Fall dar, wenn du das Code-Schnipsel von Fennek ohne Einbettung mittels WITH in ein passendes Objekt (zB.: olEMailItem)

Code:

Option Explicit
Sub ErzeugenSenden_EMail()
  Dim olApp As Object                '(für Late-Binding)
  Dim olEMailItem As Object          '(für Late-Binding)
  Dim Tx As String

' Neue Outlook-Instanz erzeugen
  Set olApp = CreateObject("Outlook.Application")  '(für Late-Binding)
  Const olMailItem = 0
' E-Mail-Objekt erstellen:
  Set olEMailItem = olApp.CreateItem(olMailItem)

  With olEMailItem
     select case left(.Subject,2)
       case "#c": Tx = "Betreffzeile 1"
       case "#v": Tx = "Betreffzeile 2"
     end select
     .Subject = Tx & Mid(.Subject, 3)
     'E-Mail absenden:
     .Send
  End With

  'Objektinstanzen zum Löschen freigeben:
  Set olEMailItem = Nothing
  Set olApp = Nothing

End Sub

verwendet hast.
Weiters kann es ein Problem darstellen, falls du die String-Variable "Tx" ohne Deklaration verwendet hast.

 

Hallo Anton,

Danke Dir. Aber klappt auch nicht.

Ich möchte in einer bereits geöffneten E-Mail in die Betreffzeile #c eingeben, damit autom. ein vordefinierter Text ("Informationsschreiben zu xyz") erscheint. Die Betreffzeile st immer gleich und hat keine weiteren dynamischen Komponenten.

Autotext quasi für die Betreffzeile.

 

Hallo,
darf ich das Thema noch einmal aufgreifen?
Stehe vor folgendem Problem. Ich möchte aus einer TXT Datei den Betreff auslesen, welcher dort abgelegt ist. Der Betreff wird in der TXT Datei automatisch erzeugt.
Wäre für eure Hilfe sehr Dankbar.