Email Versand via Dropdown-Feld

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column 7 Then Exit Sub If .Value = "close" Then MsgBox "Soeben hat " & .EntireRow.Range("D1") & " den Status auf 'close' gesetzt!", _ vbInformation End If End With End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim varUser As Variant Dim strUser As String, strEmail As String With Target If .Column 7 Then Exit Sub If .Value "close" Then Exit Sub strUser = .EntireRow.Range("D1") End With Set varUser = Sheets("Email").Columns("A:A").Find(strUser, LookIn:=xlValues) If varUser Is Nothing Then MsgBox "Keine Email-Adresse zum User '" & strUser & "' vorhanden!", vbExclamation Exit Sub End If strEmail = Sheets("Email").Cells(varUser.Row, 2) MsgBox "Soeben hat " & strUser & " (" & strEmail & ") den Status auf 'close' gesetzt!", _ vbInformation End Sub

Hallo Michq,
bei mir werden keine Dropdowns in Spalte G angezeigt, aber vielleicht liegt das an meiner uralt Excel-Version 2003, dass diese Information bei der Dateiformatkonvertierung verlorengegangen ist.
Ich habe hier auf diesem Rechner kein Outlook installiert und wollte deshalb keinen ungestesteten Code posten, zumal es unzählige Beispiele vom Emailversand im Forums-Archiv gibt. Theoretisch sollte der Email-Versand so klappen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngUser As Range
Dim strUser As String, strEmail As String
With Target
If .Column  7 Then Exit Sub
If .Value  "close" Then Exit Sub
strUser = .EntireRow.Range("D1")
End With
Set rngUser = Sheets("Email").Columns("A:A").Find(strUser, LookIn:=xlValues)
If rngUser Is Nothing Then
MsgBox "Keine Email-Adresse zum User '" & strUser & "' vorhanden!", vbExclamation
Exit Sub
End If
strEmail = Sheets("Email").Cells(rngUser.Row, 2)
Call SendMail(strEmail)
MsgBox "Soeben hat " & strUser & " (" & strEmail & ") den Status auf 'close' gesetzt!",  _
vbInformation
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 = "Das ist der Textinhalt der Email"
.Display
.Send
End With
Set objOL = Nothing
End Sub

Aber wie schon gesagt, habe ich es nicht getestet. Um die Email ohne Bestätigung verschicken zu können, muss unter Outlook 2010 eine Sicherheitseinstallung deaktviert werden. Ich kann mich jetzt aber nicht erinnern wo bzw. was das genau war (...da musst du mal hier im Forum oder per Google suchen). Diese Sicherheitseinstellung soll den automatisierten Versand von SPAM-Mails aus Office-Dateien mit Makroviren vermeiden. Wie gesagt, kann diese Einstellung direkt in Outlook deaktiviert werden.
Viele Grüße
Martin

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Email Versand via Dropdown-Feld

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread