Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Email Macro only sometime works?
Range("T4").Select
ActiveCell.FormulaR1C1 = "1" Do Until cont = 44 cont = Range("T4").Value dothing = Range("N15").Value If dothing 0 Then mail = Range("W4").Value rang = Range("AK2").Value Dim iMsg As Object Dim iConf As Object Dim sh As Worksheet Dim rng As Range Dim Flds As Variant Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source Defaults Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "******" ..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With Set sh = Sheets("Mail") Set rng = sh.Range(rang) With iMsg Set .Configuration = iConf .To = mail .CC = "" .BCC = "" .From = """Paul"" <*******" .Subject = "Your Current Closures" .HTMLBody = RangetoHTML(sh, rng) .Send End With Set iMsg = Nothing Set iConf = Nothing Else End If Windows("Daily Advisor Stats.xls").Activate Sheets("Calc").Select Range("T6").Select Selection.Copy Range("T4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Loop This is sends data from the "Mail" sheet, based on what number is in T4, each number is for a different person. In this way it should send to each individual information on their own figures. When I change the email address from W4, to W3 (and in W3 I have the email address of the bloke sat across from me) it sends fine. But when its on W4, where the email address of the individual will be updated it doesn't send, don't even get an error. Will this just not work on External email, only Internal? Or do I need to use a different smtpserver? Even when I put my address in the BCC I don't get sent it... Also, when they go through internally, they are centre adjusted in the email, rather than left adjusted.... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro works but buttons don't | Excel Discussion (Misc queries) | |||
Excel macro works only for administrator | Excel Discussion (Misc queries) | |||
Need a macro to Copy a selection and paste into a new email. | Excel Discussion (Misc queries) | |||
Email Macro using IMAP account | Excel Discussion (Misc queries) | |||
Email Macro with Outlook Express | Excel Discussion (Misc queries) |