Recent content by divan

  1. divan

    VbaProject: Changing email format

    Work 100% :) Thank you
  2. divan

    VbaProject: Changing email format

    Thanks for all your help so far Diane This would hopefully be my last question to you: I altered the script to give each Site a username and password which must be unique. The way I assigned it was the same as for the phone number but I think I slipped up somewhere. Somehow it does not enter the...
  3. divan

    VbaProject: Changing email format

    Thanks so much Diane! Works like a charm! What would the max sites be that I can add to the script?
  4. divan

    VbaProject: Changing email format

    The run-time error refers to strSubject = Replace(Item.Body, vbCrLf, ", ")
  5. divan

    VbaProject: Changing email format

    It makes sense and is a very good idea to have a shared script. Just tried it now... I went into rules and created the following rules: ------------------------------ Apply this rules after message arrives from site-1@domain.com and on this machine only run Project1.Site1Forward...
  6. divan

    VbaProject: Changing email format

    Hi Diane. Thanks for all your help so far! I finally got the script to work 100%....now I need to duplicate the script to have other recipients. Example of how this is working now: Our office (Site-1) has a CCTV system that sends out a email to Outlook that then gets forwarded to Linux box...
  7. divan

    VbaProject: Changing email format

    I have played around with the script and found that this works almost 100 except for the concatenate function in the subject Sub ChangeSubjectForward(Item As Outlook.MailItem) Item.Subject = Item.Body Item.Save Set myforward = Item.Forward myforward.Recipients.Add "fake.email@server.com"...
  8. divan

    VbaProject: Changing email format

    I have tried the code you have given , but can't get it to work. Not really sure as to where I should put in the code: Sub ChangeSubjectForward(Item As Outlook.MailItem) Item.Subject = myForward.Subject & myForward.Body <---This line gives me an error Item.Save Set myForward =...
  9. divan

    Outlook 2007 - Replace email body with custom text

    Please explain to me the SMS addin
  10. divan

    VbaProject: Changing email format

    Hi I need a script that can do the following: Original Email Email Subject: Movement Alarm 555 Email Body: Unit: 0 Version:03.091 Continuous Movement Back Office Zone 3 2015/01/20 @ 07h15 ___________________________________________ Altered email after script was processed: Email Subject...
  11. divan

    Outlook 2007 - Replace email body with custom text

    The I have a CCTV system that sends a email when a movement alarm is triggered. Now I want to send the email to another system in a specific format so that it can be converted into a sms. The SMS system uses the subject of the email as the sms and the body as the destination, thus me wanting to...
  12. divan

    Outlook 2007 - Replace email body with custom text

    I am only using script to copy over... where or how can I adjust it? This is my script: Sub ChangeSubjectForward(Item As Outlook.MailItem) Item.Subject = Item.Body Item.Save Set myForward = Item.Forward myForward.Recipients.Add "fake_email@gmail.com" myForward.Subject = Item.Body myForward.Body...
  13. divan

    Outlook 2007 - Replace email body with custom text

    If I send a mail with no body to my outlook with script, then the forwarded email (from outlook with script) has only the body which I added in the scrip. But when the email has text in body my outlook script does not remove or clear the sent email.body. This is what is added which I want...
  14. divan

    Outlook 2007 - Replace email body with custom text

    I have a rule to run a script upon receiving email from a specific account. The script takes the email body and place it in my subject (placing my subject with body) Now I want the script to remove or clear the email body before it forwards it to the email recipient, I want it to be black or...
  15. divan

    Macro to format email in a certain folder then forward to email address

    Don't know why I make it so difficult for myself... Sorted it out thanks. I did not need the formatting to be in plain text, so that made it simple. Sub ChangeSubjectThenSend(item As Outlook.MailItem) Item.Subject = Item.Body Item.Save Set myForward = Item.Forward myForward.Recipients.Add...
Back
Top