| s = "mailto:" & sTo & "?subject=" & sSubject & "&cc=" & sCC & "&body=" & sBody RunProgram s sCC = " email@x.com;email@b.com;email@c.com" sBody = " text goes here but end lines with " & "%0D0A" & _ " the second line " & "%0D0A" You can also change the fields based on a drop-down selection If sDeck = "Japan" then sTo = "Dan@Jap.com" sName = "Dan" Elseif sDeck = "Europe" then sTo = "Susan@Euro.com" sName = "Susan" sCCPlus = ";extraperson@test.com" Else sTo = "Steve@US.com" sName = "Steve" End if |