Mailversand mit Outlook funktioniert nicht

[keksi1970]

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

[keksi1970]

guck dir doch mal diesen link an

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

hmmm, du hast gar kein Outlook installiert ???

lg
Andreas

[keksi1970]

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

[mumpel]

Hallo!

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é