ich bin auf der Suche nach einer Lösung für folgende Aufgabe.
Wenn ich in dem Bereich von A bis M einen Text eingebe / oder ändere soll eine Mail mit dem Inhalt der jeweiligen Zeile in einer Mail versendet werden. Aber nur die Zeile in der Änderungen oder Neueingaben stattgefunden haben.
Habe hierzu schon in anderen Foren nach einer Lösung gesucht und die Leute waren super nett. Aber meine Kenntnisse reichen nicht aus.
habe diesen Code für die Mail:
Sub aktivedrucken()
Application.DisplayAlerts = False
'Dim aws As String
Dim olapp As Object
'ActiveWorkbook.ActiveSheet.Copy
'ActiveWorkbook.Save
'aws = ActiveWorkbook.FullName
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.to = GetAddies 'Empfänger holt er sich hier aus dem V1-V5
'.cc = "mail1@server.de,mail2@server.de,mail3@server.de" 'optional Kopie an
'.bcc = "mail1@server.de,mail2@server.de,mail3@server.de" 'optional Blindkopie an
'.ReadReceiptRequested = True ' optional Lesbestätigung anfordern
.htmlbody = "Bitte geben sie hier ihr Thema ein:" 'Optional Body
.Subject = "Thema - Dokumentenlenkung" 'Betreff optional
.ReadReceiptRequested = True 'optional Lesebestätigung anfordern
' .Attachments.Add aws
.display
'SendKeys "%s", True ' optional Mail sofort senden
End With
Set olapp = Nothing
Application.DisplayAlerts = True
End Sub 'Sub status()
' Worksheets("Basic").Shapes("AutoForm 2").Copy
' Range("i19").Select
' ActiveSheet.Paste
' End Sub ' -----------------
Private Function GetAddies() As String
Dim sAddies As String
Dim rCell As Range
'For Each rCell In Range("v1:v5").Cells 'hier sucht er sich die adressen im zielblatt'
For Each rCell In Worksheets("config").Range("e2:Ae6").Cells '
'das gebe ich ein wenn ich keine verknüpften cellen haben will
sAddies = rCell.Text & ";" & sAddies
Next
GetAddies = Left(sAddies, Len(sAddies) - 1)
End Function
funktioniert super. aber der html body müsste mit der aktuellen Zeile gefüllt werden.für die Änderungs-Überwachung habe ich folgendes ausprobiert:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column
in dieser Kombi, sendet er zwar eine Mail, aber diese wird nach jeder Zelle gestartet.Mein Wunsch wäre:
a. obigen Mail Code so anpassen das er den Inhalt aus der jeweiligen Zeile nimmt
b. einen Tipp wie ich das steuern kann das er entweder bei Änderung oder bei Neuanlage, eine Mail sendet mit dem Inhalt- aber erst wenn man fertig ist mit der Zeile.
Vorschläge von den anderen Forumsteilnehmer waren, Abfrage vorschalten oder Pflichtfelder einfügen
Habt ihr einen Tipp für mich bitte
LG
Marcus