Betreffzeile für mehrere E-Mails bearbeiten

402
RaRA

Hallo, ich bin auf der Suche nach einem Dialogfeld, das sich öffnet, sodass der Benutzer eine Nummer eingeben und die Betreffzeile von mehreren ausgewählten (hervorgehobenen) E-Mails ändern kann.

Der folgende Code funktioniert nur für eine E-Mail und nicht für die anderen, die ich hervorgehoben habe: 

Sub AddFileNumber()  Dim myo1App As Outlook.Application Dim aItem As Object  Set myo1App = CreateObject("Outlook.Application") Set mail = myo1App.ActiveExplorer.CurrentFolder  Dim iItemsUpdated As Integer Dim strTemp As String Dim strFilenum As String  strFilenum = InputBox("Enter Number") iItemsUpdated = 0 For Each aItem In mail.Items strTemp = "[" & strFilenum & "] " & aItem.subject aItem.subject = strTemp iItemsUpdated = iItemsUpdated + 1 aItem.Save Next aItem  MsgBox iItemsUpdated & " of " & mail.Items.Count & " Messages Updated" Set myo1App = Nothing  End Sub
0

0 Antworten auf die Frage

Verwandte Probleme