Mail versenden
Dirk
Ich habe mal einen alten Beitrag herausgegraben:
https://www.herber.de/forum/archiv/652to656/t654143.htm#654143
Den möchte ich gern mit meinen Makro verbinden
Ich möchte, dass diese Ja/Nein Abfrage von Outlook nicht erscheint, mein altes Makro hat das aber immer gemacht.
Dirk
Sub neu()
Dim vX As Variant
vX = Range("B2")
Range("A1:b14").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = "www@www.de"
.Item.Subject = "mein Text " & vX
.Item.Send
End With
Range("A1").Select
End Sub
Sub alt()
Dim vX As Variant
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
Dim ClpObj As DataObject
vX = Range("B3")
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
Range("A1:b12").Select
Selection.Copy
With Nachricht
.Subject = " mein Text " & vX
ClpObj.GetFromClipboard
.body = ClpObj.GetText(1)
.To = " www@www.de "
.Display
End With
SendKeys "%s", True
Set OutApp = Nothing
Set Nachricht = Nothing
Range("A1").Select
End Sub
Anzeige