Verteilerliste aus Excel heraus

[Mounzer]

Grüße Liebe Community,

Ich habe eine kleine Datei erstellt, mit Hilfe des Internets, die es mir ermöglicht, aus Excel heraus eine neue Mail zu öffnen in der die Empfänger eingetragen werden.
Jetzt möchte ich aber auch noch den Betreff aus Zeile E1 und den Text aus Zeile G1 auch übernommen wird, evtl. hat jemand ja eine Idee dazu, ich verzweifle mittlerweile. :(

Vielen Dank vorab!

Gruß

Mounzer

[Matthias84]

Hallo,

lade doch mal deine Datei, wie du sie bisher hast, hier hoch. Zum Thema Outlook und Excel findest du auch hier einiges

[WillWissen]

Hallo Mounzer,

beachte bitte deine PN!!! Hat dein erneut im falschen Forum geposteter Beitrag dasselbe Problem zum Inhalt?

[Mounzer]

  TEST.xlsx (Größe: 13,67 KB / Downloads: 1)

Sehr gute Idee.   :100:

[Mounzer]

Habe schon eine Antwort geschrieben lieber Admin, Danke. :)

[BoskoBiati]

Hi,

und wo ist das Makro?

[Mounzer]

Ich dreh ab, es ist nicht abgespeichert. verdammt. :(


Hier ist aber noch der Code, hui... :)


Option Explicit

Sub MW_AbteilungsVerteilerMailVersand()
   Dim oAppOutlook As Object
   Dim i As Long
   Dim sAbteilung As String
   Dim sTemp As String
    
     sAbteilung = Sheets("Tabelle1").Cells(1, 2).Value
     sTemp = ""
    
     With Sheets("Tabelle1")
         For i = 4 To .UsedRange.Rows.Count + .UsedRange.Row - 1
             If .Cells(i, 1).Value = sAbteilung Then
                 sTemp = sTemp & .Cells(i, 4).Value & ";"
             End If
         Next i
         'Das letzte Semikolon entfernen
         If Trim(sTemp) <> "" Then
             sTemp = Left(sTemp, Len(sTemp) - 1)
         End If
     End With
    
     'Wenn mindestens eine E-Mail Adresse gefunde wurde wird
     'eine E-Mail vorbereitet:
     If Trim(sTemp) <> "" Then
        
         Set oAppOutlook = CreateObject("Outlook.Application")
         With oAppOutlook.CreateItem(0)
              .To = sTemp 'Unser E-Mail Empfänger String aus sTemp
              .Subject = "Betreffzeile" 'E-Mail Betreffzeile
              .Body = "Mail-Inhalt..." 'E-Mail Inhalt
              .Display 'E-Mail anzeigen
              '.Send = Direkt senden
         End With
    
     Else
    
         MsgBox "Die gesuchte Abteilung hat keine " & _
             "hinterlegten Mitarbeiter oder E-Mail Adressen!"
    
     End If
    
     Set oAppOutlook = Nothing
End Sub

[Matthias84]

Hallo,

du hast doch schon fast alles, du musst nur noch in den Zeilen

Code:

.Subject = "Betreffzeile" 'E-Mail Betreffzeile
               .Body = "Mail-Inhalt..." 'E-Mail Inhalt

den Verweis auf die entsprechenden Zellen setzen. Sollte ja bei dem, was du schon programmiert hast, kein Problem darstellen...

[Mounzer]

Hallo,

du hast doch schon fast alles, du musst nur noch in den Zeilen

Code:

             .Subject = "Betreffzeile" 'E-Mail Betreffzeile
              .Body = "Mail-Inhalt..." 'E-Mail Inhalt

den Verweis auf die entsprechenden Zellen setzen. Sollte ja bei dem, was du schon programmiert hast, kein Problem darstellen...

In meinem ersten Beitrag hatte ich geschrieben:  "Ich habe eine kleine Datei erstellt, mit Hilfe des Internets"   = keine Kenntnisse..

[BoskoBiati]

Hi,

naja, auch bei keine Kenntnisse reicht hier lesen. 

"Betreffzeile" 'E-Mail Betreffzeile
"Mail-Inhalt..." 'E-Mail Inhalt

sieht dann so aus wie hier:

Code:

Sheets("Tabelle1").Cells(1, 2).Value