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

Hallo, ich würde gerne in mein Formular verschiedene Buttons einfügen, bei deren Klicken automatisch ein Text in die Zwischenablage gespeichert wird.

Insgesamt sollen es 4 Buttons sein, die jeweils einen spezifischen Text beinhalten. Hat da jemand eine Idee für mich?

(Noch optimaler wäre, wenn ich durch das Anklicken eines Buttons automatisch eine E-Mail in Outlook erzeuge, aber ich glaube das wäre weitaus komplizierter?)

:)

 

Die Google-Suche liefert immer gute Resultate, Stichwort: VBA Clipboard
auch zu Mailing via Outlook

 

Nein. Mit ein bisschen Suche findest Du ausgerechnet dazu hier und im Netz genug Beispiele, die nur noch verstanden und angepasst werden müssen.

Suchen, umsetzen, bei Fragen wieder melden.

 

Für Nurtext-Mails ist die Methode SendObject (siehe VBA-Hilfe) geeignet und sehr simpel.

Die Verwendung der Zwischenablage ist dagegen heikel, schon weil da auch dritte Vorgänge Störungen verursachen können.

 

Würde jetzt den Code von hier nehmen: (E-Mail erstellen und anzeigen)

https://msdn.microsoft.com/de-de/lib.../ff197046.aspx

Aber wo füge ich den jetzt genau ein?

 

also dir scheinen ja offenbar die kompletten Basics von Access zu fehlen.
Ich würde mich zuerst mal etwas damit beschäftigen. Auch dazu findet man Tutorials zu Hauf im Netz.

Den DoCmd Befehl musst du natürlich dort einfügen, wo du das Mail versenden willst. Nehme an bei einem der Buttons.

Aber wir fischen hier im trüben Teich, da wir ja gar nichts von deiner Anwendung kennen.

 

An der für deine Anwendung korrekten Stelle *grins
Und willst du das wirklich blind einfügen?

 

Ja kenne mich leider sehr wenig damit aus...

Ich habe den Code in den Button eingefügt, aber es funktioniert soweit noch nichts. Muss den Code ja auch noch an mein Formular anpassen.

Also ich hab ein Formular, in welchem verschiedene Lieferantennummern mit näheren Infos wie E-Mail, usw. angezeigt werden. Das Formular ergibt sich über das Vernüpfen von zwei Tabellen, wobei eine regelmäßig aktualisiert wird und die Kriterien vorgibt, ob die Lieferanten im Formular angezeigt werden.

Jetzt würde ich gerne im Formular über verschiedene Buttons automatisch verschiedene Arten von Mails an die Lieferanten-Email erstellen, die mir im Formular angezeigt wird.

 

Frage ist jetzt, den Teil muss ich ja noch anpassen:

' Add the To/Subject/Body to the message and display the message
With olMailItem
.To = MessageTo

 

wenn wir helfen sollen, dann poste bitte den ganzen Code des Buttons mit der Code-Funktion (2. Icon von rechts)

 

PHP:

         Private Sub Command255_Click()
Public Function CreateEmailWithOutlook( _
MessageTo As String, _
Subject As String, _
MessageBody As String)

' Define app variable and get Outlook using the "New" keyword
Dim olApp As New Outlook.Application
Dim olMailItem As Outlook.MailItem  ' An Outlook Mail item

' Create a new email object
Set olMailItem = olApp.CreateItem(olMailItem)

' Add the To/Subject/Body to the message and display the message
With olMailItem
.To =
.Subject = Subject
.Body = MessageBody
.Display    ' To show the email message to the user
End With

' Release all object variables
Set olMailItem = Nothing
Set olApp = Nothing

End Function
End Function


 

Okay, bringen wir dir ein wenig Programmierung bei: Macht das Sinn, eine Function innerhalb eines Subs zu deklarieren?
Was sagt der Compiler, wenn du unter dem Menüpunkt "Debuggen" dein Projekt kompilieren willst?

 

Ich bin gerne bereit es zu lernen, werde mich nach der Arbeit dann mal bisschen hinsetzen *Smilie

compile error: expected end sub

 

Schau dir mal die letzten beiden Zeilen an.
Dann gib dem Compiler mal ein End Sub

 

So kommt immer noch die gleiche Fehlermeldung *frown.gif*

PHP:

         Private Sub Command255_Click()
Public Function CreateEmailWithOutlook( _
MessageTo As String, _
Subject As String, _
MessageBody As String)

' Define app variable and get Outlook using the "New" keyword
Dim olApp As New Outlook.Application
Dim olMailItem As Outlook.MailItem  ' An Outlook Mail item

' Create a new email object
Set olMailItem = olApp.CreateItem(olMailItem)

' Add the To/Subject/Body to the message and display the message
With olMailItem
.To = MessageTo
.Subject = Subject
.Body = MessageBody
.Display    ' To show the email message to the user
End With

' Release all object variables
Set olMailItem = Nothing
Set olApp = Nothing

End Function
End Sub