hier der code des problems:
Dim VAR_Höhner As Byte
;------------------------------------------
Private Sub Worksheet_Calculate()
If VAR_Höhner = 10 Then
If Range("A2").Value = Date Then
VAR_Höhner = 0
End If
End If
If [w7] >= 1 Then Call Mail_Höhner
Call Mail_El_AVOR
Sub Mail_Höhner()
If VAR_Höhner = 0 Then
Dim olAPP As Object
Set olAPP = CreateObject("Outlook.Application")
With olAPP.CreateItem(0)
'Empfänger
.Recipients.Add "Marc.erini@hotmail.ch@stadlerrail.ch"
'Betreff
.Subject = "Rückmeldung"
'Nachricht
.Body = "Guten Tag Marcel" & Chr(13) & _
"Die siebentägige Frist für die Rückgabe der Rückmeldung ist abglelaufen!" & Chr(13) & _
"Wir bitten Sie das Formular so bald als möglich ins AVOR Büro zu bringen." & Chr(13) & _
"Mit freundlichen Grüssen, das AVOR-Team." & Chr(13) & Chr(13)
'Lesebestätigung ein
.ReadReceiptRequested = True
.Send
End With
Set olAPP = Nothing
Range("A2").Value = Date
VAR_ELAVOR = 1
VAR_Höhner = 10
Else
MsgBox ("Mail wurde heute bereits versendet !")
End If
End Sub
Funtionieren sollte es folgendermassen:
Wenn in der zelle "w7" ein wert drin steht, dann soll er abfragen ob die variable "VAR_Höhner = 0", wenn ja, dann soll er das mail versenden - wenn er das mail versendet hat soll die variable "VAR_Höhner" mit 10 beschrieben werden (kann auch 1, 2 oder sonst was sein)und die zelle "a2" mit dem heutigen datum - anschliessend wird dann überprüft ob "VAR_Höhner = 10 " und die zelle "a2" dem heutigem datum entspricht - wenn ja, soll die "VAR_Höhner" auf "o" gesetzt werden und es kann wieder ein mail versendet werden.
momentan versendet er andauernd mails - denke es liegt an der variablenabfrage oder beschreibung
bitte um hilfe
mfg. bearny