04. E-mail küldés makróval

Az alábbi eljárással az Outlook segítségével e-mail üzeneteket küldhetünk ki.

Private Sub emailkuld(cimzett As String, masolat As String, targy As String, Uzenet As String)
        Dim OutApp As Object
    Dim OutMail As Object
    Dim myOlapp
    Dim olMailItem
    Dim myItem
    Set myOlapp = CreateObject("Outlook.Application")
    Set myItem = myOlapp.CreateItem(olMailItem)
    myItem.Display
    myItem.To = cimzett
    myItem.cc = masolat
    myItem.Subject = targy
    myItem.Body = Uzenet
    myItem.Send
End Sub