Also ich hab folgendes "Problem":
Ich hab ein Makro erstellt mit dem ich mein Excel File als Anhang in einem Mail versende.
Per Userform wähle ich den Empfänger aus, das Mail und der Anhang werden mir jeweils 2Mal ausgedruckt....
Nun will ich, dass das Mail im Outlook automatisch aus den "sent Items" in einen Archiv-Folder verschoben wird...
Ist das irgendwie möglich?
Sub BCC_Senden()
Application.DisplayAlerts = wdAlertsNone
ActiveWorkbook.SaveAs Filename:="C:\Temp\Barcode Compare.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
UserForm1.Show
Dim StrName As String
strBetreff = Sheets("BCC").Range("ItemCode")
StrName = UserForm1.ComboBox1.Value
.to = StrName
.Subject = Sheets("BCC").Range("ItemCode")
.attachments.Add AWS
.Body = "Hi!" & vbCrLf & vbCrLf & _
"LG sehli "
.send
ActiveWindow.SelectedSheets.PrintOut copies:=2, Collate:=True
Application.DisplayAlerts = wdAlertsAll
ThisWorkbook.Saved = True
Application.Quit
End With
Dim MyOutId As Integer
Dim MyOutFolder As Object
Dim MyOutlook As Object
Dim MySentItem As Object
Set MyOutlook = CreateObject("Outlook.Application")
Set MyOutFolder = MyOutlook.GetNamespace("MAPI").GetDefaultFolder(5)
For MyOutId = 1 To MyOutFolder.Items.Count
Set MySentItem = MyOutFolder.Items(MyOutId)
With MySentItem
If .Subject = strBetreff Then
.PrintOut
.PrintOut
'Jetzt sollte das Mail in mein Archiv verschoben werden.
Application.DisplayAlerts = wdAlertsAll
End If
End With
Next
End Sub
verzeiht eventuelle umständliche "Umschreibungen" :-) Hab noch nicht viel Erfahrung mit VBA... Hauptsache, es funktioniert *g*
Danke
LG sehli