SendMail mit Absender und Body mit mehreren Zellen
21.11.2003 18:48:31
Klaus K.
der unten stehende Code läuft sehr gut.
Aber wie kriege ich den richtigen Absender hin?
Es soll nicht über mein Standart Postfach in Outlook versendet werden.
Sondern den Umständen entsprechend ein anderes Konto verwenden.
Noch wichtiger:
Ich möchte reinen Text versenden. Der steht aber in den Zellen A2:B55.
Funktioniert aber leider nicht. Nur mit einer Zelle.
Hat da jemand eine Lösung für mich ???????
Ich sag' schon mal vieeelen Dank :-))
Gruss
Klaus
Sub Send_Mail()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim sTo As String
Dim sCC As String
Dim sBCC As String
Dim sSubject As String
Dim sBody As String
sTo = Sheets("Zahl.-Auf.").Range("C13").Value
sCC = Sheets("Zahl.-Auf.").Range("C14").Value
sBCC = Sheets("Zahl.-Auf.").Range("C15").Value
sSubject = Sheets("Zahl.-Auf.").Range("A1").Value
sBody = Sheets("Zahl.-Auf.").Range("A2").Value
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
'.XXXXXXX = "ich@domain.de"
.To = sTo
.CC = sCC
.BCC = sBCC
.Subject = sSubject
.Body = sBody
.Importance = 2
.Send
End With
Set oOLMsg = Nothing
Set oOLRecip = Nothing
Set oOL = Nothing
End Sub