Office: (Office 2010) Button -> Text in Zwischenablage

Entflechte das Ganze mal, damit es mit Testwerten zum Laufen kommt:

Code:

Ich vermute mal, dass es jetzt a) funktioniert und b) Outlook meckern wird wegen Zugriff von außen.

maike

 

Sorry, aber warum tust du dir das an mit der Automatisierung von Outlook, wenn du nur eine schlichte Mail versenden willst?
Dass dies auch mit der SendObject-Methode geht wurde doch bereits gesagt.

 

Das wäre dann der Code soweit, jedoch wird als Fehlermeldung "user-defined type not defined" angezeigt

PHP:

         Private Sub Command255_Click()
CreateEmailWithOutlook "EineMailadresse@Irgendwas.de", "TestEmail", "Hallo Welt"
End Sub

Public Function CreateEmailWithOutlook( _
MessageTo As String, _
Subject As String, _
MessageBody As String) Funktion erstellt Email nach Aufruf und Wertübergabe

Dim olApp As New Outlook.Application
Dim olMailItem As Outlook.MailItem

Set olMailItem = olApp.CreateItem(olMailItem)

With olMailItem
.To = MessageTo
.Subject = Subject
.Body = MessageBody
.Display
End With


Set olMailItem = Nothing
Set olApp = Nothing


End Function


 

Da fehlt der Verweis auf Outlook (VBA Editor, Extras/Verweise).
maike

 

run-time error 91
object variable or with block variable not set

Der Fehler kommt, wobei beim Ddebuggen das Folgende markiert wird:

Set olMailItem = olApp.CreateItem(olMailItem)

 

Set olApp fehlt im Code, ich würde auch olMailItem nicht als Objektnamen nehmen:
Code:

maike

 

Okay super, das hat funktioniert *Smilie Vielen Dank

Jetzt wird ja allerdings noch eine E-Mail mit den Beispieldaten geöffnet, wie bekomme ich es nun hin, dass die Daten verwendet werden, die gerade angezeigt werden im Formular?

 

Mit ein wenig Eigeninitiative kommt man von

Code:

doch sicherlich auf die eigenen Daten, oder ... ? *wink.gif*

 

Liege ich mit der Vorgehensweise richtig, dass ich über einen select.. from ..Befehl die Daten hole?

 

Ich denke, die hast du im Formular?
Daten aus einem Formularfeld:
Code:

maike

 

Habe jetzt das hier im Code:
"Method or data member not found"

*frown.gif*

PHP:

         Private Sub Command255_Click()
CreateEmailWithOutlook Me.E - Mail, "Kapazitätsabsicherung..", "DeinText"
End Sub


 

Servus bittemerken95,
als Tipp ins Blaue hinein. Steuerelementnamen mit Sonderzeichen müssen eckige Klammern verwenden.
Code:

 

Da gehört natürlich der Hinweis hin, das solche Feldnamen NIE zu verwenden sind, weder Leerzeichen, Umlaute noch Sonderzeichen in Feldnamen!!!
Einzige Ausnahme: der Unterstrich, also z.b. E_Mail

Dann sind diese unsäglichen eckigen Klammern nicht nötig.
BTW: die Syntax muss dann lauten Me!E_Mail

 

Falsch!!!!!
Sie können verwendet werden. Man muss allerdings wissen, dass man sich dabei diverse Probleme einfangen wird.
Diese kann man mit den eckigen Klammern umgehen.

Wieso ein "!" anstatt ein "." ?

 

Weil wegen: FAQ6VBA