Mailversand mit Outlook funktioniert nicht

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: Mailversand mit Outlook funktioniert nicht

Re: Mailversand mit Outlook funktioniert nicht

von mumpel » Mi, 21.01.2009 21:53

Hallo!
hartwig hat geschrieben: Das funktioniert soweit. Ich sehe da aber nur 'Empfänger', 'Subject' und 'Anhang' .
Aber wie kann ich da eine Nachricht einfügen?
Ich benutze dafür .htmlbody
Hat den Vorteil, dass man auch HTML-Tags nutzen kann, z.B. einen Link zu einer Datei/Seite mitsenden. Habe hierzu mal meinen VBA-Code nach OOo umgestellt. Funktioniert mit OOo 3.0 ohne Fehler. Aber nur mit Outlook, nicht mit Outlook-Express.

Sub UseOutlook()
Dim oOLEService
Dim oOutlookApp
Dim oOutlookMail
Dim olApp As Object
Dim AWS As String
AWS = "D:\Herbers\Tab2HTML.xlam"
oOLEService = createUnoService("com.sun.star.bridge.OleObjectFactory")
olApp = oOLEService.createInstance("Outlook.Application")
oOutlook = olApp.CreateItem(0)
With oOutlook
.To = "Ich@ich.de" 'Empfänger
.CC = "Du@Du.de" 'Òptional Kopie
.BCC = "Er@Er.de" 'Optional Blindkopie
.Subject = "Text für Betreff"
Rem Body im HTML-Format. Hier mit HTML-Code arbeiten
.htmlBody = "Text für HTML-Mail " & _
"<a href=""http://www.rholtz-office.de"">Link zu einer Internetseite</a>"

.Attachments.Add AWS
.Display
End With
End Sub

Code eingefügt mit VBA in HTML 2.0

Gruß, René

Re: Mailversand mit Outlook funktioniert nicht

von keksi1970 » Mi, 21.01.2009 20:38

da musst einen von den Experten hier fragen.

Ich habe Outlook installiert gehabt und daher nicht die Notwendigkeit gesehen, mich mit simple Mail zu beschäftigen
und Xray gab auch nicht wirklich aufschluss.

btw : Outlook ist nicht dasselbe wie outlook express oder WinMail von Vista.

lg Andreas

Re: Mailversand mit Outlook funktioniert nicht

von keksi1970 » So, 18.01.2009 15:20

guck dir doch mal diesen link an

http://www.dannenhoefer.de/faqstarbasic ... ml#Zweig44

hmmm, du hast gar kein Outlook installiert ???

lg
Andreas

Re: Mailversand mit Outlook funktioniert nicht

von keksi1970 » Sa, 17.01.2009 19:07

Hi, wo dein Fehler liegt, weiß ich nicht, aber dieser Code funktioniert :

Code: Alles auswählen

	Dim oOLEService
	Dim oOutlookApp
	Dim oOutlookMail
	oOLEService = createUnoService("com.sun.star.bridge.OleObjectFactory")
	oOutlookApp = oOLEService.createInstance("Outlook.Application")
	oOutlookMail = oOutlookApp.CreateItem(0)
'------------------------------------------------------------------------------------------------------
Anrede = "Sehr geehrte Damen und Herren," 
'------------------------------------------------------------------------------------------------------

bodytext = " dies ist ein test"
'------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------
Signatur = "Mit freundlichen Grüßen "
'------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------
MailKoerper = Anrede  & bodytext & Signatur
'------------------------------------------------------------------------------------------------------
anstring = "BlaBla@BlaBla.de"
copystring = "ich@meins.de"
subjecttext = " betr.: testversuch"

with oOutlookMail
	.To = anstring
	.CC = copystring
	.Subject = subjecttext
	.HTMLBody = MailKoerper
	'.Attachments.Add("C:\foo.txt")
	.Display()
	'.send()
end with
Funktioniert jedenfalls mit 3.0 und vista

lg Andreas

Nach oben