Strings werden nicht ausgelesen

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

Moderator: Moderatoren

dloercher

Strings werden nicht ausgelesen

Beitrag von dloercher » Di, 05.11.2019 09:14

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 » Di, 05.11.2019 09:23

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

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

Re: Strings werden nicht ausgelesen

Beitrag von Stephan » Di, 05.11.2019 09:53

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