Outlook Makro Zeilen entfernen

Computer: Software & Programmierung Visual Basic
#1

Hallo Zusammen,

Ich möche gerne ein Makro schreiben das mir ein Mail das in den Posteingang kommt automatisch weitergeleitet wird.
Das Makro sollte aber auchnoch z.B. die ersten 4 Zeilen des Mails (die Text enthalten) Löschen und den Betreff so abändern das kein "WG: " mehr enthalten ist. (Automatisch für weiterleitungen)

Das einzige wass noch nicht funktioniert ist dieses Löschen der ersten Zeilen die Text enthalten.

Mein Makro:

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)

Dim strMsg As String
Dim myFwd As Outlook.MailItem
Dim olApp As Outlook.Application
Dim objNachricht As MailItem
Dim Betreff As String

Set myFwd = Item.Forward
Set olApp = New Outlook.Application
Set objNachricht = olApp.CreateItem(0)
Set Mail = objNachricht

With Mail
.SentOnBehalfOfName = Default
.To = „[email protected]“
.SendUsingAccount = .Session.Accounts(„blabla“)

#"WG: " aus dem Betreff entfernen (funktioniert auch nicht)

.Subject = Replace(.Subject, "WG: ", „“)

#Hier sollte das Löschen der ersten paar Zeilen kommen, habe aber keine Idee wie das funktioniert

End With

myFwd.Send
Set myFwd = Nothing
SendKeys „{ENTER}“
End Sub

#2

Hallo Trudels,

ich antworte dir mal obwohl ich dir derzeit nicht direkt helfen kann. Hab seit 2 Monaten keinen Emailzugang, bin wohl zu doof da die SSL-Verschlüssung bei gmx einzurichten *jammer*.
Aber ist mein Ding, kläre ich demnächst mit Hilfe der User im Outlook-Brett *hoff*

Das bedeutet für dich, wenn hier nix brauchbares kommt was dir hilft so mail mich über w-w-w ruhig mal an und verweise auf diese Beitragsfolge.
Die Aufgabenstellung sieht für mich lösbar aus.

Ich möche gerne ein Makro schreiben das mir ein Mail das in
den Posteingang kommt automatisch weitergeleitet wird.

JEDE Mail? Oder gefiltert nach Absender, Betreff o.ä.?

Das einzige wass noch nicht funktioniert ist dieses Löschen
der ersten Zeilen die Text enthalten.

Nö, Das „WG“ löschen klappt wohl auch noch nicht.
Du löschst es wohl so:
.Subject = Replace(.Subject, "WG: ", „“)

Schreib das mal zweizeilig:
Msgbox .Subject
.Subject = Replace(.Subject, "WG: ", „“)

Steht "WG: " genau so ohne Anführungszeichen auch im .Subject?
May be OL fügt es erst im Moment des Weiterleitens hinzu.

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)

Ist das die Prozedurhülle eines Ereigniscodes? Wenn du das nicht weißt machts nix. Kriege ich schnell raus wenn ich OL starte und das mache ich erst wenn ich wieder mailen kann. Fragen was ich meine kannste natürlich gleich.

#Hier sollte das Löschen der ersten paar Zeilen kommen, habe
aber keine Idee wie das funktioniert

Rein prinzipiell geht das wie mit dem Betreff (.Supject)
Ich mache sowenig mit OL und weiß gar nicht wie man den eigentlichen Text der Email anspricht. .Text, .Innertext o.ä., o.ä.
Wie heißt das Zauberwort?

SendKeys „{ENTER}“

Für was soll das sein?

Gruß
Reinhard

#3

Hallo,

Rein prinzipiell geht das wie mit dem Betreff (.Supject)
Ich mache sowenig mit OL und weiß gar nicht wie man den
eigentlichen Text der Email anspricht. .Text, .Innertext o.ä.,
o.ä.

mit .Body kommt man an den Mailtext.

Dann muesste man mittels InStr(…) die entpechenden CR_LF Zeichen suchen und danach kann man mittels Right(…) den Text ab der gewuenschten Stelle abschneiden und der Mail wieder zufuehren.

Tschau
Peter