Moin,
water, ich versuche mit "_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $aAttachments)" in eine bereits vorhandene geöffnette Mail mit Anhang weitere Dateien zu addieren.
Klappt aber leider nicht! 
Die Mail wird schon vorher mit deiner UDF geöffnet und Adresse, Betreff, Nachricht sowie Anhang einfügt.
Ist es überthaupt möglich, oder gibt es einen anderen Weg?
Gruß
Poste mal Deinen Code, dann kann ich mehr sagen.
Das Beispiel _OL_ItemAttachmentAdd.au3 macht aber genau das auch (zwar zuerst _OL_ItemFind statt _OL_ItemCreate).
Welche Werte haben @error und @extended nach dem Aufruf von _OL_ItemAttachmentAdd?
Da der Code 20000 Zeilen hat, kann ich dir nur den kurzen Auszug posten. Sorry 
Func sendemail($sAdresse, $sBetreff, $sNachrText, $sAnhang)
If ProcessExists("outlook.exe") = 0 Then
ShellExecute("outlook.exe") ; Wenn Outlook nicht gestartet, öffne Outlook
EndIf
Local $Betreff = GUICtrlRead($iSendmail_TXT)
Global $oOutlook = _OL_Open()
_OL_MailSignatureSet("entsel-2", "") ; in Outlook vorhandene Signatur
$oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=" & $Betreff)
Local $aRecipients ;empfänger_1
Local $MailCC = GUICtrlRead($iST_Email_2) ;empfänger
If $sAdresse <> "" Then
$aRecipients = StringSplit($sAdresse, ";", 2)
If $MailCC = "" Then
_OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $aRecipients)
Else
_OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $aRecipients)
_OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olCC, $MailCC)
EndIf
EndIf
Local $aAttachments ;anhang
If $sAnhang <> "" Then
$aAttachments = StringSplit($sAnhang, ";", 2)
;~ _Arraydisplay($aAttachments)
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $aAttachments)
If @error = 3 Then
MsgBox(0 + 262144 + 64, "Fehler", "Eine Datei ist zum Versenden zu groß")
Return
EndIf
If @error = 4 Then
MsgBox(0 + 262144 + 64, "Fehler", "Eine Datei ist nicht vorhanden")
Return
EndIf
EndIf
;Check wenn Mail versendet wird
Global $oOApp = ObjCreate("Outlook.Application")
Global $oItems = $oOApp.GetNamespace("MAPI").GetDefaultFolder($olFolderSentMail).Items
Local $Event = ObjEvent($oItems, "oItems_")
$oItem.BodyFormat = $olFormatHTML
$oItem.GetInspector
$sBody = $oItem.HTMLBody
$oItem.HTMLBody = $sNachrText & $sBody
_OL_MailSignatureSet("entsel-1", "entsel-1") ; zurückstellen auf Standard-Signatur
Global $SendMailFile = $SaveAsMail & $Betreff & ".msg"
If FileExists($SendMailFile) Then
If 7 = MsgBox(4 + 262144 + 32, "Mail überschreiben", "Die Datei " & $Betreff & ".msg ist schon vorhanden." & @CRLF & @CRLF & "Soll sie überschrieben werden") Then ;nicht vorhanden
MsgBox(0 + 262144 + 64, "Mail", "Bitte versuchen sie es erneut mit anderen Betreff")
ExitLoop
Else
FileDelete($SendMailFile)
Sleep(100)
_OL_ItemSave($oOutlook, $oItem, Default, $SendMailFile, $olMSGUnicode)
Sleep(100)
$oItem.Display
ExitLoop
EndIf
Else
_OL_ItemSave($oOutlook, $oItem, Default, $SendMailFile, $olMSGUnicode)
Sleep(100)
$oItem.Display
EndIf
endFunc
If ProcessExists("outlook.exe") = 0 Then
ShellExecute("outlook.exe") ; Wenn Outlook nicht gestartet, öffne Outlook
EndIfKannst Du knicken, das macht _OL_Open.
Du musst auf ALLE möglichen Fehler prüfen:
If $sAnhang <> "" Then
$aAttachments = StringSplit($sAnhang, ";", 2)
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $aAttachments)
If @Error Then
If @error = 3 Then Return MsgBox(0 + 262144 + 64, "Fehler", "Eine Datei ist zum Versenden zu groß")
If @error = 4 Then Return MsgBox(0 + 262144 + 64, "Fehler", "Eine Datei ist nicht vorhanden")
Return MsgBox(0 + 262144 + 64, "Fehler", "Fehler " & @error & " ist aufgetreten")
EndIf
EndIfGlobal $oOApp = ObjCreate("Outlook.Application")Kannst Du auch knicken. Verwende dann aber überall $oOutlook statt $oApp.