Excel VBA Betreffzeile verknüpfen

[Fabidi]

Hey Leute !

wie schaffe ich es, dass meine Betreffzeile mit mehreren Zellen aus Excel verknüpft wird, anstatt, dass ich den Betreff von vorne rein eingebe? Das Problem ist nämlich, dass sich der Betreff immer wieder ändern soll.


Sub SendDailyMail()

Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Maildb As Object
Dim MailDoc As Object
Dim session As Object
Dim stSignature As String
Dim ritemtext As Object

With Application
.ScreenUpdating = False
.DisplayAlerts = False


AWS = ActiveWorkbook.FullName
Set Worksheet = Application.ActiveWorkbook.Worksheets.Item(1)
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CurrentDatabase
Set MailDoc = Maildb.createdocument
MailDoc.Form = "Memo"
Set Workspace = CreateObject("Notes.NOTESUIWORKSPACE")
stSignature = Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
Recipient = ""
'MailDoc.Display = "Testgruppe"
MailDoc.sendto = "testgruppe"
MailDoc.copyto = ""
MailDoc.subject = ""
MailDoc.SAVEMESSAGEONSEND = saveit
Set ritem = MailDoc.CREATERICHTEXTITEM("Body")
For i = 2 To 2
With ritem
        .AppendText ("")
        .addnewline (3)
End With
Next
For i = 1 To 41

With ritem
        .AppendText ("")
        .AppendText (Cells(i, 1).Value & vbTab & Cells(i, 2).Value & vbTab & Cells(i, 3).Value & vbTab & Cells(i, 4).Value & vbTab & Cells(i, 5).Value & vbTab)
        .addnewline (1)
End With

 Next
For i = 2 To 2
With ritem
        .AppendText ("" & vbCrLf & vbCrLf & stSignature)
End With
Next
ritem.Update

Call Workspace.editdocument(True, MailDoc).GOTOFIELD("Body")



MailDoc.PostedDate = Now()
'Call MailDoc.SEND(False)
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachMe = Nothing
Set session = Nothing
.ScreenUpdating = True
.DisplayAlerts = True
End With
Range("a1").Select
End Sub

DANKE FÜR EURE HILFE

[Ralf_M_Petter]

Äh du musst doch nur in dem Code in der Zeile MailDoc.subject = "" den Betreff befüllen. Verstehe jetzt irgendwie die Frage nicht.

[Fabidi]

Also das Problem ist, wenn ich den Betreff dort manuell einfüge, dann ist dieser ja in jeder Mail gleich. Allerdings soll sich dieser immer ändern und zwar je nachdem was in verschiedenen Zellen bei Excel steht.
Durch die Funktionen mit  i= 1 to 41 wird dann ja der Zellwert genutzt der da drin steht. Diese Info steht dann aber im Body-Text. Ich würde gerne meine Betreffzeile auch mit Zellen verknüpfen.

[Ralf_M_Petter]

Ja aber was hindert dich daran. Hast du überhaupt Ahnung von Programmierung?

Du brauchst doch nur MailDoc.subject=Cells(zeile, spalte).Value

zeile,spalte musst du durch deine Zeile und Spalte ersetzen in der der Betreff im Excel Sheet steht. Habe das zwar jetzt nicht probiert, aber sollte problemlos klappen.

[Fabidi]

Vielen Dank!

Geht aber auch freundlicher

[Ralf_M_Petter]

Es wäre fair gewesen, im Eröffnungspost gleich darauf hinzuweisen, dass du nicht Programmieren kannst.  Dann hätte man nicht grübeln müssen, was du überhaupt meinst.