IT Answers » VBScript Email

Networking A Unique ID with multiple email accounts/profile.

Cgsit — Thu, 25 Mar 2010 22:10:57 +0000

Hello,
I have been in many forums trying to find an answer to my project questions and problems.

Status Quo: I have 10 locations, hotels that we designed to have there own unique email address since they are users in active directory. so H1, H2, H3 is users with exchange features on active directory. HI@cgs.com, H2@cgs.com, h3@cgs.com
I have agents that goes to different hotels every day but when they send out an email they send out using the hotel they are in. so lets say rob is in h1 he will send emails out using h1@cgs.com. The next day he will go to h2 and send out emails with h2@cgs.com. etc.etc.

Goal: My agents don’t use unique Id and password, they use h1 as user name and password. My goal to be compliant is to have my agent use unique ids and passwords with there name being the user name. My goal is this and my problem is this, I create the user rob with exchange feature so now he has rob@cgs.com, he goes to h1 on monday and sign on the computer with rob. He opens outlook and comes out with rob@cgs.com. I don’t want that, I want him to open h1@cgs.com emails and send out as h1@cgs.com. Tuesday he will go to sign on h2 computer using rob and when he opens up h2 outlook I want it to come out with h2@cgs.com

It’s alot to take I’m sorry if I am confusing you. My goal is to have a unique id and password with a revolving .prf script or maybe tool or maybe software so when they sign on to the computer they will see the name of the computer as the hotel and automatically use the hotel’s profile and not there own for email.

Thanks for listening at least. I do have a script in the works, a vbs script where i use a script to find the computer name and information and then use the outlook profile script to pull the hotel’s prf from the server so when he opens outlook it will open with that profile.

thanks again.

vbscript email message lenght limits?

Crbsa — Mon, 02 Mar 2009 17:07:35 +0000

Is there a “total message length” limitation for Excel Macro Emails?
I’m new to vbscripting and thought I had successfully created code to email Excel data via a macro. I have written the macro to send up to 30 lines of information, but have discovered that the number of lines I can actually send depends on the amount of data within the lines themselves. I.E. I can send 30 lines with a small amounts of data per line or perhaps only 12 lines of data with larger amounts of data per line. My code (below) works, provided the amount of data in any or all of the lines is is not “too large.” If is is “too large,” it simply does not send the email. Any sugestions?

Code:

‘ SendEmail Macro
‘ Email Data
‘
‘ Keyboard Shortcut: Ctrl+r
‘
Private Declare Function ShellExecute Lib “shell32.dll” _
Alias “ShellExecuteA” (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub SendEmail()
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Dim r As Integer, x As Double

Sheets(“email”).Select

‘ Get the email address
Email = “first.last@company.com”

‘ Message subject
Subj = “Project Time Sheet: ”
Subj = Subj & Cells(2, 2)
Subj = Subj & ” for Period ”
Subj = Subj & Cells(2, 4)
Subj = Subj & ” – ”
Subj = Subj & Cells(2, 5)

‘ Compose the message
Msg = “”
Msg = Msg & Cells(33, 2) & vbCrLf
Msg = Msg & Cells(34, 2) & vbCrLf
Msg = Msg & Cells(35, 2) & vbCrLf
Msg = Msg & Cells(36, 2) & vbCrLf
Msg = Msg & Cells(37, 2) & vbCrLf
Msg = Msg & Cells(38, 2) & vbCrLf
Msg = Msg & Cells(39, 2) & vbCrLf
Msg = Msg & Cells(40, 2) & vbCrLf
Msg = Msg & Cells(41, 2) & vbCrLf
Msg = Msg & Cells(42, 2) & vbCrLf
Msg = Msg & Cells(43, 2) & vbCrLf
Msg = Msg & Cells(44, 2) & vbCrLf
Msg = Msg & Cells(45, 2) & vbCrLf
Msg = Msg & Cells(46, 2) & vbCrLf
Msg = Msg & Cells(47, 2) & vbCrLf
Msg = Msg & Cells(48, 2) & vbCrLf
Msg = Msg & Cells(49, 2) & vbCrLf
Msg = Msg & Cells(50, 2) & vbCrLf
Msg = Msg & Cells(51, 2) & vbCrLf
Msg = Msg & Cells(52, 2) & vbCrLf
Msg = Msg & Cells(53, 2) & vbCrLf
Msg = Msg & Cells(54, 2) & vbCrLf
Msg = Msg & Cells(55, 2) & vbCrLf
Msg = Msg & Cells(56, 2) & vbCrLf
Msg = Msg & Cells(57, 2) & vbCrLf
Msg = Msg & Cells(58, 2) & vbCrLf
Msg = Msg & Cells(59, 2) & vbCrLf
Msg = Msg & Cells(60, 2) & vbCrLf
Msg = Msg & Cells(61, 2) & vbCrLf
Msg = Msg & Cells(62, 2) & vbCrLf

‘ Replace spaces with %20 (hex)
‘Subj = Application.WorksheetFunction.Substitute(Subj, ” “, “%20″)
‘Msg = Application.WorksheetFunction.Substitute(Msg, ” “, “%20″)

‘ Replace carriage returns with %0D%0A (hex)
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, “%0D%0A”)

‘ Create the URL
URL = “mailto:” & Email & “?subject=” & Subj & “&body=” & Msg

‘ Execute the URL (start the email client)
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

‘ Wait two seconds before sending keystrokes
Application.Wait (Now + TimeValue(“0:00:02″))
Application.SendKeys “%s”

Sheets(“Weekly Report”).Select

End Sub

How to send an email (status report) automatically from a client system to remote server

Infocion — Wed, 25 Feb 2009 21:14:56 +0000

Hii All,

I have a task running on client machine.as soon as the task ends i need to send an email notification to the remote server the status report of task.

Is there any VB script or the other way to do this.