If MsgBox("Wollen Sie diese Anfrage abschicken", vbYesNo) = vbYes Then
Set objOutlook = CreateObject(Class:="Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "it@bhag.gv.at"
.HTMLBody = "Liebes Team, " & vbCrLf & "bitte um " & Target.Offset(, -1) & " für " & vbCrLf & "Titel: " & Chr(10) & Target.Offset(, -6) & vbCrLf & "Vorname: " & Chr(10) & Target.Offset(, -4) & vbCrLf & "Nachname: " & Chr(10) & Target.Offset(, -3) & vbCrLf & "Geburtsdatum " & Chr(10) & Target.Offset(, -5) & vbCrLf & "Foto und Unterschrift liegt bereits am Laufwerk"
.Subject = betreff
.send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End If
End If
Mit diesem Codeschnipsel versende ich eine Mail. Aber ich möchte das man da mitzählen kann wie oft ich die Mail verschicke. Weil wenn ich die Mail 2 mal verschicke dann soll in einem Feld etwas reingeschrieben werden. |