Hyperlink zu E-Mail per Makro

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Hyperlink zu E-Mail per Makro

Re: Hyperlink zu E-Mail per Makro

von Clara86 » Di, 09.03.2010 08:51

Hallo,

erstmal vielen Dank für das Makro.

Allerdings bin ich wohl zu blöd um das zu generieren. Jedenfalls zeigt er mir beim ausführen des Makro immer einen Fehler in den Zeilen an, wo ich meine Eingaben mache :(

Kann man das Makro eigentlich kombinieren mit dem Fokus auf der Betreffzeile aus dem thread: Adress-DB mit URL und eMail-Button?

Vielen Dank schonmal

Re: Hyperlink zu E-Mail per Makro

von sarotti » Do, 02.08.2007 08:14

Hallo newcomer,

...geört eigentlich in den Bereich Makros... aber hier der Code:

Code: Alles auswählen

Sub FormEmailSenden

Dim oDoc as Object
Dim oDraw as Object
Dim oForm as Object
Dim noargs()
Dim oTo as Object, oCC as Object, oBCC as object, oSubject as object, oBody as Object, oSignature as Object

oDoc = thisComponent
oDraw = oDoc.DrawPage
oForm = oDraw.getForms.GetByName("Email_Form") 		'Name des Formulars
oTo= oForm.GetByName("MAILTO")			            'Name des Textfeldes im Formular
oCC= oForm.GetByName("CC")                                                  'Feld CC
oBCC = oForm.GetByName("BCC")                                              'Feld BCC
oSubject = oForm.GetByName("Subject")                                    'Feld Subject
oBody = oForm.GetByName("Body")                                            'Feld Body
oSignature = oForm.GetByName("Signature")                                'Feld Signatur


'msgbox "To:       " + oTO.Text + CHR(13) +_
'		"CC:      " + oCC.Text + CHR(13) +_
'		"BCC:      " + oBCC.Text + CHR(13) +_
'		"Subject: " + oSubject.text + CHR(13) +_
'		"Body:    " + oBody.text + CHR(13) +_ 
'		oSignature.text
		 
email_dispatch_url = "mailto:" + oTO.Text + "?" + "cc=" + oCC.text + "&" + "bcc=" + oBCC.text +  "&"_
 + "subject="+ oSubject.text + "&" + "Body=" + oBody.text + CHR(13) + CHR(13) + oSignature.text
dispatcher = createUnoService( "com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch( StarDesktop,email_dispatch_url, "", 0, noargs())

end sub
Dieses Makro habe ich für ein eigenes Email Formular gemacht, in dem die genannten Felder untergebracht sind. Das ganze funktioniert soweit ganz gut. Problem von Base ist aber, dass es (meines Wissens) keine ordentliche Schnittstelle zu Mail Programmen gibt. Bei Windows Versionen > 98 und der Verwendung von Outlook bieten sich andere Möglichkeiten. Da kann man dann auch Anlagen mitgeben etc...

Wenn Du Details hierzu brauchst kann ich Dir gerne einen Link zum Nachlesen raussuchen (Dannhöfer oder Andrew Pionyak...glaube ich) - da gibt´s mehr Details.... :D

Gruss
sarotti

Nach oben