Email Versand aus Excel

[Storax]

Lieber Ralf,

FACK = Full Ack = Full Acknowledge


Lieber Moderator,

ich bin nicht der Code-Monkey vom OP, auf SO würde ich ein Close-Vote abgeben, weil

Questions should be closed by casting close votes if:
they are sufficiently similar to existing questions and would be answered identically to them.

Salute
Storax

[schauan]

Hallöchen,

hier mal was zum Rest:

In der Tabelle Daten in Spalte j werden die Personen per Dropdown eingetragen, in der Tabelle Stammdaten sind diese in Spalte G aufgelistet und in Spalte H die dazugehörigen Email Adressen. Dazu soll auch noch der Text aus Tabelle Daten Spalte I in die Email als Text eingetragen werden und direkt versendet werden.

Hole Dir die zur Person gehörenden Daten auf Basis der Dropdown-Auswahl per SVERWEIS dazu. Dann kannst Du den E-Mail-Versand mit festen Zelladressen programmieren statt der Variablen, die Storax in seinem Beispiel verwendet hat.

Alternativ müsstest Du per VBA mit FIND schauen, in welcher Zeile Deine Person ist und die Daten dann aus dieser Zeile per VBA holen … SVERWEIS ist da sicher einfacher für Dich.
Übrigens, auch schon oft erschienen ist der Hinweis, dass Listen auf Basis von Personennamen irgendwann ein Problem bekommen, wenn ein zweiter Max Mustermann hinzukommt ...

[Arni49]

PHP-Code:

Sub Worksheet_Change(ByVal Target As Range)
    Dim rngUser As Range
    Dim strUser As String, strMailaddress As String
    
    With Target
        
        strUser = Intersect(Target, Range("j:j"))
    End With
    
    Set rngUser = Sheets("Stammdaten").Columns("g:g").Find(strUser, LookIn:=xlValues)
    
    If rngUser Is Nothing Then
        MsgBox "Keine Email-Adresse zum User '" & strUser & "' vorhanden!", vbExclamation
        Exit Sub
    End If
    
    strMailaddress = Sheets("Stammdaten").Cells(rngUser.Column, 8)
    Call SendMail(strMailaddress)
        
End Sub
Sub SendMail(strMailaddress As String)

    Dim objOL As Object
    
    Set objOL = CreateObject("Outlook.Application")

    With objOL.CreateItem(0)
        .To = strMailaddress
        .Subject = "Betreff"
        .Body = "Es gibt einen neuen Eintrag im Elektronischen Schichtbuch DL382 Welle "
        .Display
        .Send
    End With

    Set objOL = Nothing
End Sub 


Da habe ich ja was ins rollen gebracht.
Sorry bin eben ein Beginner.
Habe es jetzt so versucht, Outlook wird auch geöffnet aber es wird keine EMAIL aus der Tabelle Stammdaten Spalte H eingetragen. Den Text aus Tabelle Daten Spalte "I" ist noch nicht umgesetzt.

[Arni49]

Habe einen Fehler schon selber gefunden :19:

strMailaddress = Sheets("Stammdaten").Cells(rngUser.Row, 9)

Jetzt fehlt nur noch die Funktion den Text Text aus Tabelle Daten Spalte I mit in die EMAIL eintragen.

[schauan]

Hallöchen,

wo ist die Schwierigkeit? Die Mailadresse holst Du Dir mit

strMailaddress = Sheets("Stammdaten").Cells(rngUser.Column, 8)

Im Prinzip kannst Du so auch den Body Bilden, z.B.

...
strBody = "Es gibt einen neuen Eintrag im Elektronischen Schichtbuch DL382 Welle "
strBody = strBody & vblf & …..Cells(…., 7)
...
Call SendMail(strMailaddress, strBody)


Sub SendMail(strMailaddress As String, strBody as String)
…
usw.