MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub EmailWelcome() Dim FirstName As String, Subj As String, LineManager As String Dim GPAccess As String, POlevel As String, Email As String Dim Msg As String, URL As String Dim myHelpLink As String Dim r As Integer, x As Double ' Get the email address Email = Sheets(1).Range("C14") FirstName = Sheets(1).Range("C5") LineManager = Sheets(1).Range("C10") GPAccess = Sheets(1).Range("C37") POlevel = Sheets(1).Range("C38") ' Message subject Subj = "Welcome - ICT Information " ' Compose the message Msg = "" Msg = Msg & "Dear " & FirstName & "," & vbCrLf & vbCrLf Msg = Msg & "Hello and welcome to the team!" & vbCrLf & vbCrLf Msg = Msg & "We have put some important information about our IT systems on the Intranet for you" & "." & vbCrLf & vbCrLf 'Msg = Msg & "" & "http://intranet/People/CorporateServices/IT/New to Us/Home.aspx" & "" & vbCrLf & vbCrLf Msg = Msg & "Here you will find important information about passwords (which password for which system), working from home and backing up your data correctly. For example, it is your responsibility to back up files to the server/Intranet, and we will look after them from there. " & vbCrLf & vbCrLf Msg = Msg & "It will only take about 10 minutes to read all the pages on the link above, and it will clear up some of the questions you have." & vbCrLf & vbCrLf Msg = Msg & "Just email us if there is anything that we can help you with (related to ICT or Facilities) after checking the links above." & vbCrLf & vbCrLf Msg = Msg & "We hope that this is the start of a long and positive time working together. " & vbCrLf & vbCrLf 'Msg = Msg & Cells(r, 3).Text & "." & vbCrLf & vbCrLf Msg = Msg & "Kind Regards" & vbCrLf Msg = Msg & "The IT and Facilities Team" ' 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" End Sub
|Server Shares and Excel files||2||13|
|Word 2016 - View side-by-side displays docs vertically||2||22|
|excel table with over 25000 rows.||3||32|
|Conditional Vlookup to take certain range of data only||5||22|