VBA Code to send email to address in cell A1

[Malcolm torishi]

Does any one know how to send an email from a button on a spread sheet to an email address that is saved on the same spread sheet under cell A1
if any one could help please
thank you

 

[mole999]

Follow this guide > http://www.rondebruin.nl/win/winmail/Outlook/tips.htm

you would put your resolved email in A1

and in the code Dim something to carry that value as a string

then at

.To = "The string from A1"

 

[Malcolm torishi]

Thank you

 

[Dossfm0q]

good Day

Public Sub SendAttach()
'Attach1 = ThisWorkbook.Path & "\" & "" & ".xlsx" ' if excel
'Attach2 = ThisWorkbook.Path & "\" & "" & ".PNG" ' if Picture or ".GIF"
'Attach3 = ThisWorkbook.Path & "\" & "" & ".Docx" ' if word doc
    On Error Resume Next
    Dim OutApp As Variant
    Dim OutMail As Variant
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        .To = Range("A1") ' or like"[EMAIL="someone@xxxx.com"]someone@xxxx.com[/EMAIL]"
        .CC = "" ' or like"[EMAIL="someone@xxxx.com"]someone@xxxx.com[/EMAIL]"
        .Subject = "MySubject"
        On Error Resume Next
        '.Attachments.Add Attach1
        '.Attachments.Add Attach2
        '.Attachments.Add Attach3
        On Error GoTo 0
         .Save
        .Display
        '.send '<<<<< if you wand to send dirict remove "'" to be .send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    On Error Resume Next
   ' Kill FilePath
'Kill Attach1
'Kill Attach2
'Kill Attach13
End Sub