Wenn Wert in Zelle, dann MsgBx für Mail

Hallo zusammen,
ich habe folgendes Problem:
Ich habe eine Tabelle, in der je Zeile ein Testfall steht. Die Spalte R der Tabelle dient der Vergabe diverser Status. Die Status lauten bspw. "Offen", "Okay" und "Fehler".
Ich möchte nun, dass sobald der Status eines Testfalls auf "Fehler" geändert wird, eine Message Box nach folgendem Format erscheint:
MsgBox "Möchten Sie zu diesem Testfall eine Fehlermeldung aufgeben?", vbOKCancel + vbExclamation, "Fehlermeldung erfassen"
Sofern dann auf "OK" geklickt wird, soll automatisch eine Vorkonfigurierte E-Mail erscheinen, die nur noch vervollständigt und verschickt werden muss.
Die Vorkonfigurierung soll wie folgt aussehen:
Empfänger: Adresse kann bereits im Makro hinterlegt werden
CC: Adresse kann bereits im Makro hinterlegt werden
Betreff: Wird aus mehreren Zellen des jeweiligen Testfalls (Zeile) zusammengesetzt.
Textbaustein: Kann bereits im Makro hinterlegt werden.
Ich hoffe, mein Problem ist soweit verständlich und es kann mir geholfen werden?! :-)
Vielen Dank im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Raffaele,
hier mal ein einfacher Ansatz zu Deinem Vorhaben.
Aufgrund Deiner wenigen Angaben müssen meine Beispielangaben von Dir noch angepasst werden....
Das Makro gehört in das gewünschte Tabellenmodul:

Private Sub Worksheet_Change(ByVal Target As Range)

 'Sendet eine eMail bei Fehler

 Dim sMailtext As String, iZeile As Long

 If Target.Column &LT;&GT; 18 Then Exit Sub           'Nur für Spalte $R

 If Target.value Like "Fehler" Then             'Nur wenn Text "Fehler"

  If MsgBox("Möchten Sie zu diesem Testfall eine Fehlermeldung aufgeben?", vbYesNo Or vbQuestion, "Fehlermeldung erfassen") = vbYes Then

   iZeile = Target.Row

   With CreateObject("Outlook.Application").CreateItem(0)

    .BodyFormat = 3          'HTML-Format, Angabe optional

    .To = "AnMich@web.de"                       'Empfänger

    .CC = "KopieAnIhn@web.de"                   'Kopie an

    .Subject = Cells(iZeile, 1).value & " " & Cells(iZeile, 2).value

    sMailtext = "Hallo,&LT;br&GT;hier mein vordefinierter Text!&LT;br&GT;&LT;br&GT;"

    .GetInspector                               'Signatur holen

    .HTMLBody = sMailtext & .HTMLBody

    .display                                    'Mail anzeigen

   End With

  End If

 End If

End Sub

viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Wenn Wert in Zelle, dann MsgBx für Mail

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

364 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn Wert in Zelle, dann MsgBx für Mail

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

364 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread