Strings werden nicht ausgelesen

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

dloercher

Strings werden nicht ausgelesen

Beitrag von dloercher »

Hallo zusammen ich möchte eine Mail von Calc per Outlook versenden. Das ganze funktioniert auch soweit.
Allerdings habe ich in meinem Code ein Problem. Der String "Kunde" wird noch befüllt aber die anderen Strings bleiben leer.
Im Moment sehen die Zellen wie folgt aus:

A1 = Kunde
A2 = Anzahl
A3 = 01.01.2019

Ich würde hier für den Betreff dann "KundeAnzahl01.01.2019" erwarten. Allerdings bekomme ich lediglich "Kunde".
Wo liegt hier der Fehler?

Code: Alles auswählen

Sub Mailtest()
Dim Kunde As String
Dim Anzahl As String
Dim Datum As String
Dim Betreff As String

Kunde = ThisComponent.Sheets(0).getCellRangeByName("A1").String

Anzahl = ThisComponent.Sheets(0).getCellRangeByName("A2").String

Datum = ThisComponent.Sheets(0).getCellRangeByName("A3").String

Betreff = Kunde & Anzahl & Datum

Dim oApp As Object
Dim oMailItem As Object
On Error Resume Next
Set oApp = CreateObject("Outlook.Application")
Set oMailItem = oApp.CreateItem(0)
oMailItem.to = "daniel.loercher@hpn.biz"
oMailItem.Subject = Betreff
oMailItem.htmlbody = "mein fester Text"
oMailItem.display



'oMailItem.send 
End Sub

dloercher

Re: Strings werden nicht ausgelesen

Beitrag von dloercher »

könnt ihr vergessen. es hilft wenn man die korrekten Zellen abfrägt

Stephan
********
Beiträge: 11551
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Strings werden nicht ausgelesen

Beitrag von Stephan »

Was für Antworten erwartest Du?

Schon in Deinem ersten Post fragt doch das Makro konkrete Zellen ab (und ich wüsste nicht wie Du als nicht Angemeldeter Schreiber das nachträglich hättest ergänzen können, falls es ursprünglich nicht dastand).

Bei mir funktioniert Dein Makro, so wie es ist (unter AOO 4.1.6 Windows 7)


Gruß
Stephan

Antworten