Hey also vllt könnt ihr mir eher weiterhelfen wenn ich euch mal meinen kompletten code schicke
Modul:
Public Function ActiveInspector() As Inspector
Dim mailUserProperties As Outlook.UserProperties
Dim mailUserProperty As Outlook.UserProperty
Dim myOlApp As New Outlook.Application
Dim CurrentMessage As Outlook.MailItem
Set CurrentMessage = myOlApp.ActiveInspector.CurrentItem
skdnr = UserForm1.TextBox1.Value
CurrentMessage.BCC = "mail@adress.de"
If skdnr <> "" Then
CurrentMessage.ItemProperties.Add("Archiv", olText) = skdnr
End If
End Function
Im User Form gebe ich im prinzip nur die Nummer ein die dann in die neu gerenierte mail (mit der gesendeten als anhang wie im vorherigen beitrag schon beschrieben) rein muss und ruf dann im userform code die function vom modul auf.
der komplette code von der aktuellen outlook sitzung steht folgender code:
Private WithEvents monitedFolderItems As Items
Private Sub Application_Startup()
Dim sentItemsFolder As MAPIFolder
Set sentItemsFolder = Application.Session.GetDefaultFolder(olFolderSentMail)
Set monitedFolderItems = sentItemsFolder.Items
End Sub
Private Sub monitedFolderItems_ItemAdd(ByVal Item As Object)
Set objItems = Item.ItemProperties
Set objItem = objItems.Item("Archiv")
If Not objItem Is Nothing Then
If objItem.Value <> "" Then
Set objOutlook = GetObject(, "Outlook.Application")
Set objMail = objOutlook.CreateItem(0) 'olMailItem
objMail.To = "mail@adress.de"
objMail.Subject = objItem.Value
Set myCopiedItem = Item.Copy
Set ItemProps = Item.ItemProperties
Dim i As Integer
For i = 0 To ItemProps.Count - 1
If ItemProps(i).name = "Archiv" Then
ItemProps.Remove i
Exit For
End If
Next
objMail.Attachments.Add (myCopiedItem)
objMail.Send
End If
End If
End Sub
Also mittlerweile weiß ich dass es am "Archiv" liegt, aber ich hab keine ahnung wie mans ändern kann.
Hoffe es kann mir einer von euch helfen!
Danke schon mal im voraus!!!!
Grüße
|