[Chrisi99]

ich hab jetzt mal folgenden Code gewurschtelt (aus einem Beispiel):

Public Sub Befehl10_Click()

    Dim myMail      As Outlook.MailItem
    Dim myOutlApp   As Outlook.Application

    Set myOutlApp = New Outlook.Application
    Set myMail = myOutlApp.CreateItem(olMailItem)

    With myMail
        
        .To = "me@inode.at"
       
       
        .Subject = "betreff"
         .Body = "test"
          ' Die Email abschicken
        .Send
        

    End With

    ' Die Outlook-Instanz beenden
    myOutlApp.Quit

    ' Objektvariablen zerstören und Speicher freigeben
    Set myMail = Nothing
    Set myOutlApp = Nothing

End Sub

Jedoch muss man ja wirklich bei jeder Mail Outlook den Zugriff gewähren... (sehr nervig). Gibts da ein Workaround?