|
Hallo zusammen,
Hab ein Problem beim versenden der Mail aus der Excel. Weiß aufgrund meiner.. ich sag mal unzureichenden VBA-Kenntnisse nicht, wie komplex sich die Lösung darstellt.
|
A |
B |
C |
D |
E |
|
Material |
Auftragswert |
Status |
Wenn Funktion |
Email Sachbearbeiter |
|
Material 1 |
3.961,36 € |
Genehmigt |
|
Mail.123.XXX |
|
Material 2 |
13.093,08 € |
Genehmigt |
|
Mail.1987.XXX |
|
Material 3 |
12.487,79 € |
Freigegeben |
|
Mail.193333.XXX |
|
Material 4 |
2.075,14 € |
Abgesagt |
|
Mail.444.XXX |
In Spalte D soll eine Wenn Funktion hinterlegt sein. Wenn dort durch mehrere Bedingungen z.B. das Schlagwort "Senden" erscheint, soll die Email versendet werden. Am besten an den jeweiligen Sachbearbeiter in Spalte E.
Optimalerweise sollten in der Email noch Daten stehen.. "z.B. Wenn Funktion wurde in Zeile 5 ausgelöst... Bitte Sichten Sachbearbeiter 123."
Anbei habe ich mal meine VBA angehängt.
Dies funktioniert derzeit so... Wird in Spalte C der Status auf "Freigegeben" gestellt wird eine Email, an EINEN vorher festgelgten Sachbearbeiter gesendet.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim strMail As String
If Target.Column = 3 Then
If Not Target Is Nothing Then
'Zellinhalt in Spalte G muss eine gültige Mailadresse sein
If Target.Value = "Freigegeben" Then
'Zellinhalt in Variable schreiben
strMail = Target.Value
'bei Makroaufruf Variable mit übergeben
Call MakroXX(strMail)
End If
End If
End If
End Sub
Public Sub MakroXX(strMail As String)
Dim objOutlook As Object
Dim objEmail As Object
Set objOutlook = CreateObject("Outlook.Application")
' CREATE EMAIL OBJECT.
Set objEmail = objOutlook.CreateItem(0)
With objEmail
'Empfänger, Betreff und Normaler Lauftext hier einzustellen
.to = "Mail123@hallo.de"
.Subject = strMail & " " & Date & " " & Time
.Body = "Hier steht der TEXT"
.Display
'.Attachments.Add ("D:\Bild.png")
.Send
End With
Wäre über jegliche Hilfe oder kleine Hinweise sehr dankbar =)).
Vielen Dank schonmal.
Grüße,
Reiner
|