[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 312
  • Last Modified:

using VB to enter values into a calander appoinment

i wantt o enter some values into a calander appoinment using a macro,  i think i am missing something simple

i have this

    Dim SubjectName As String
    SubjectName = InputBox("Paste the subject of the ticket")
    AppointmentItem.Subject = SubjectName
0
jimcrint
Asked:
jimcrint
  • 2
1 Solution
 
jimcrintAuthor Commented:
OK I got that bit working now I want a bit more,  I had already done this in an access form and didnt make the connection that the same system worked.

When i have the appoinment open the cursor is sitting on location I want it to sit at the start of the body (above my ticket reference)  i do this in access with gotocontrol and selstart but i cant do that here I dont think  

    Dim NewLen As Integer
    Dim myOlApp As Outlook.Application
    Dim myApptItem As Outlook.AppointmentItem
    Set myOlApp = New Outlook.Application
    Set myApptItem = myOlApp.CreateItem(olAppointmentItem)

    Dim SubjectName As String
    Dim TicketID As String
   
    TicketID = InputBox("Enter the ticket number")
    SubjectName = InputBox("Copy and Paste the subject of the ticket")

If Not IsNull(TicketID) Then
    myApptItem.Subject = SubjectName & ":  Ticket ID = " & TicketID
    myApptItem.Body = Chr(13) & Chr(13) & "[Ticket Notes ~ticRefId='" & TicketID & "']"
    myApptItem.Display (Modal)
End If
0
 
jimcrintAuthor Commented:
I found out what I needed to do by experimentation
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now