Excel VBA calendar planner

[steviethebookie]

I have a macro that is not behaving as expected, it runs and does what i have asked it to do however i have encountered an unexpected issue.
what i wanted to do was have the invites sent from a shared mailbox which it does, however the meetings now appear in my main calendar as well - it is over 300 appointments so it has made my own calendar a bit of a mess

Code attached



can anyone tell me what i have done wrong with this one?

[Keebellah]

Hi, welcome to the forum.
I'm not the moderator but you should read the forum rules on how to post code and more

[steviethebookie]

Hi, welcome to the forum.
I'm not the moderator but you should read the forum rules on how to post code and more

Thanks - ill edit now

[Keebellah]

You didn't get the point THIS is what you should do

Sub CreateEmailfromExcel()
Dim OutApp As Outlook.Application, outmeet As Outlook.AppointmentItem
Dim I As Long, Setupsht As Worksheet
Set Setupsht = Worksheets("setup")
For I = 2 To Range("a" & Rows.Count).End(xlUp).Row
Set OutApp = Outlook.Application
Set outmeet = OutApp.CreateItem(olAppointmentItem)
With outmeet
.SendUsingAccount = OutApp.Session.Accounts.Item(1)
.Subject = "hunt line"
.RequiredAttendees = Setupsht.Range("F" & I).Value
.Start = Setupsht.Range("D" & I).Value
.End = Setupsht.Range("E" & I).Value
.Importance = olImportanceHigh
.Body = " hunt line shift"
.MeetingStatus = olMeeting
.Send


End With
Next
Set OutApp = Nothing
Set outmeet = Nothing
End Sub