Sende en mail fra excel på et bestemt tidspunkt
HejJeg håber der er en der kan hjælpe.
Jeg ønsker at nedenstående kode skal udføres man-fre kl. 12, og det skal være UDEN at hverken computeren eller excel er åbent, kan det lade sig gøre.
Har læst lidt om OnTime, men jeg ved ikke hvor jeg skal skrive den og om den kan bruges hvis excel ikke er åbent????
Sub SendBestilling()
Dim OutlookApp As Object
Dim MItem As Object
Dim Msg As String
Set OutlookApp = CreateObject("outlook.application")
'her skrives meddelelsen
Msg = "sandwich " & Range("A3") & " - " & Range("c3") & " stk." & vbCrLf
Msg = Msg & "sandwich " & Range("A4") & " - " & Range("c4") & " stk." & vbCrLf
Msg = Msg & "sandwich " & Range("A5") & " - " & Range("c5") & " stk." & vbCrLf
Msg = Msg & "sandwich " & Range("A6") & " - " & Range("c6") & " stk." & vbCrLf & vbCrLf
Msg = Msg & "Med venlig hilsen" & vbCrLf
Msg = Msg & "Camilla Andersen" & vbCrLf
Msg = Msg & "Ydelsesservice, København" & vbCrLf
Msg = Msg & "Krumtappen 4, 6. sal" & vbCrLf
Msg = Msg & "2500 Valby" & vbCrLf & vbCrLf
Msg = Msg & "Tlf.: 82 56 40 22" & vbCrLf
Set MItem = OutlookApp.createitem(0)
With MItem
.to = "vv25@bif.kk.dk"
.Subject = "Bestilling fra Ydelsesservice, København den " & Date & "."
.body = Msg
.send
End With
End Sub