Outlook aus Access aufrufen und Mail senden

[Martin_H3G]

Ich zitiere:
In Microsoft Access 97 können Sie eine öffentliche Prozedur in einem Formular- oder Berichtsmodul von jeder beliebigen Prozedur der aktuellen Datenbank aus aufrufen. Geben Sie hierzu für die Prozedur den Klassennamen des Formular- oder Berichtsmoduls an. Beispielsweise können Sie die Prozedur AnzeigeMeldung, die im Modul des Formulars Bestellungen definiert ist, folgendermaßen aufrufen:
Form_Bestellungen.AnzeigeMeldung
Fügen Sie Prozeduren, die außerhalb eines Formulars oder Berichts aufgerufen werden, am besten einem Standardmodul und nicht einem Formular- oder Berichtsmodul hinzu."
und
"Verwenden der Public-Anweisung
Sie können die Public-Anweisung zur Deklaration öffentlicher Variablen auf Modulebene verwenden.
Public strName As String
Öffentliche Variablen können in allen Prozeduren des Projekts verwendet werden. Wenn eine öffentliche Variable in einem Standardmodul oder einem Klassenmodul deklariert wird, kann diese auch in allen Projekten verwendet werden, die auf das Projekt verweisen, in dem die öffentliche Variable deklariert wurde."

[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?