|
Hallo Michael,
Ich habe leider nicht alles so zu 100% verstanden aber ich habe auch einen Code geschrieben in dem ich eine Zelle markiere und in der Spalte "Q" die dazugehörige Mailadresse hinterlegt habe.
Zusätzlich wird die Mail auch immer an xxxxx.yyyyy gesendet.
An diese Adresse wird nun ein Text den ich in einen Sheet "Mailtext" mit A1 als Betreff und A2 als Mailtext gesendet.
Natürlich kann man damit auch eine Datei versenden.
Vielleicht hilft dir das ja erst einmal weiter.
Bitte setze das Rote Kreutz in der Antwort auf Grüner Haken, wenn es erledigt ist.
Danke
Sub Mail_an_efks_manuell()
Dim Zeile As Integer
Zeile = ActiveCell.Row
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Range("Q" & Zeile) & ";xxxxxx.yyyyy@web.de" ' XXXXXXXXXXXXXXXXXXX Mailadresse XXXXXXXXXXXXXXXXXXXXXXXXXXX
.Subject = Sheets("Mailtext").Range("A1").Value & Range("L" & Zeile).Value
.Body = Sheets("Mailtext").Range("A2").Value '& Range("A" & Zeile) & ") (" & Range("O" & Zeile) & Sheets("Mailtext").Range("D1").Value
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
'.Send 'Sendet die Email automatisch
End With
'ActiveSheet.Name = "Tickets"
'Range("AT" & Zeile).Value = Date ' XXXXXXXXXXXXXXXXXX 1. Mieterbewertung abgeschickt XXXXXXXXXXXXXXX
End Sub
|