programmer needed

[kgott]

Situation: Every day I synchronize my memos from the Visor to Microsoft Outlook.
I need the following Program: After synchronization and invoking the macro, outlook saves the notes in a csv file (which is a running record of all memos synchronized), then outlook emails the notes to a specified email address, and subsequently the notes from the most recent synchronization get deleted from the outlook notes folder.
Does anybody know a programmer who would like to work on that? how much would it cost?

 

[ide]

if you want me to make this macro send a mail with the full specification (mailto:ide@altavista.net).

this sub (VBA) create a mail from notes items (you must set the PersFolderFileName and NotesFolderName values), saves as a txt file, and displays the mail item.

if it's enough and works, it costs a star ;-)

ide

Sub NotesMailSend()
    Dim PersFolderFileName, NotesFolderName, MyText As String
    Dim myOlApp, myNameSpace, myFolder, myItem As Object
    
    PersFolderFileName = "matusjInbox" 'your personal _
    forder's name
    
    NotesFolderName = "Notes"
    
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.Folders(PersFolderFileName)
    Set myFolder = myFolder.Folders(NotesFolderName)

    For i = 1 To myFolder.Items.Count 'set the myMail's text
        MyText = MyText & myFolder.Items(i).CreationTime & _
        Chr(10) & myFolder.Items(i).Body & Chr(10) & Chr(13)
    Next i
    
    Set male = myOlApp.CreateItem(0) 'create a simple mail
    
    male.Body = MyText
        
    male.Recipients.Add ("Matus, József") 'To address 1
    male.Recipients.Add ("ide@altavista.net") 'To address 2...
    male.Recipients.Add ("asdf@asdflkj.adsfjk.com")
        
    male.Subject = "MyNotesBackUp " & Format(Int(Now()), "mmm.dd.yyyy")
    'mail subject
    
    male.SaveAs "C:\temp\" & male.Subject & ".txt", olTXT
        'save as a simple txt in the specified folder
    
    male.Display
End Sub