Mails mit Beilage versenden

Markus · 1970-01-01T00:00:00+00:00

Hallo, das folgende Makro funktioniert fast! Bloss bei der Zeile Attachments bockt Excel. Ich habe alles versucht, auch beim googlen bin ich nicht weiter gekommen. Danke Für Hilfe Markus Sub Excel_Serienmail_via_Outlook_Senden() Dim OutApp As Object, Mail As Object Dim i As Integer Dim Nachricht For i = 1 To 10 'Variablen müssen bei jeder Schleife neu initalisiert werden Set OutApp = CreateObject("Outlook.Application") Set Nachricht = OutApp.CreateItem(0) With Nachricht .To = Cells(i, 1) 'Adresse .Subject = Cells(i, 2) 'Betreffzeile .Body = Cells(i, 3) 'Sendetext .Attachments = Cells(i, 4) 'Anhanng 'Hier wird die Mail gleich in den Postausgang gelegt 'und die Sicherheitsabfrage muss jedesmall bestätigt werden .Send 'Hier wird die Mail "angezeigt" 'aber gleich versendet,... OHNE Sicherheitsabrage .Display SendKeys "%s", True End With 'Variablen zurücksetzen sonst geht es nicht Set OutApp = Nothing 'CreateObject("Outlook.Application") Set Nachricht = Nothing 'OutApp.CreateItem(0) Application.Wait (Now + TimeValue("0:00:05")) Next i End Sub

Hallo.
also zu 1. Outlook stellt damit sicher, dass keine automatisch generierten Mails versendet werden. Sei es als Spam oder zur Verbreitung von schädlichen Programmen. Hatte das Problem auch des Öfteren.
zu 2. Es geht, Mails zu versenden. Ich weiss nun nicht, ob bei deinem Office zwei Fehlermeldungen angezeigt werden. Bei mir zumindest war es. es gibt einen recht umfangreichen Code wenigstens eine Meldung zu umgehen. hat bei mir ohne Probleme funktioniert.
probier mal sowas:
Option Explicit

Sub Send_Excel_Message()
Dim MyMessage As Object, MyOutApp As Object
Dim SafeMailItem As Object
'InitializeOutlook = True
Set MyOutApp = CreateObject("Outlook.Application")
'Nachrichtenobject erstellen
Set MyMessage = MyOutApp.CreateItem(0)
Set SafeMailItem = CreateObject("Redemption.SafeMailItem")
SafeMailItem.Item = MyMessage
With SafeMailItem
.To = "me@home.de"
.Subject = "Testmeldung von Excel2000 " & Date & Time
'Hier wird eine normale Text Mail erstellt
'.body = "Das ist ein Test" & vbCrLf & "Bitte ignorieren"
'Hier wird die HTML Mail erstellt
.HTMLBody = "Das ist ein Test" & vbCrLf & "Bitte ignorieren."
' Mail senden
.Send
End With
' MyOutApp.Quit
Set SafeMailItem = Nothing
Set MyMessage = Nothing
Set MyOutApp = Nothing
End Sub

und hast du unter Extras -> Verweise -> die Microsoft Outlook x.x Object Library angehakt?
Grüße Beffen

Hi Rene,
also bei mir geht das ohne Redemption mit .Send?
Die E-Mails werden ohne Nachfrage gesendet.

Sub SendEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim strBody As String
Dim strAddress As String
Dim strcc As String
Dim strSubject As String
Dim SigString As String
Dim Signature As String
Dim strDate As String
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
If OutApp Is Nothing Then
Set OutApp = CreateObject("Outlook.Application")
End If
On Error GoTo 0
If OutApp Is Nothing Then
MsgBox "Outlook ist nicht installiert, kein E-Mail Versand möglich", vbOKOnly +  _
vbExclamation, "Achtung"
Exit Sub
End If
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem) 'früher: 'Set OutMail = OutApp.CreateItem(0)
Set MyAttachments = OutMail.Attachments
'    MyAttachments.Add strDateinameInStore
'    MyAttachments.Add strDateinameData
cpwMaster.Activate
strDate = CDate(Format(Now, "DD.MM.YYYY hh:mm"))
strBody = "*****************************************"
strAddress = Range("E4").Value
strcc = Range("F4").Value
strSubject = "files " & strcurPer & " " & strDate
SigString = "C:\Standard.txt"
If Dir(SigString)  "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
On Error Resume Next
With OutMail
.To = strAddress
.CC = strcc
.BCC = ""
.Subject = strSubject
.Body = strBody & vbNewLine & vbNewLine & Signature
'.Attachments.Add (strDateinameInStore)
.Send   'or use .send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

Forumthread: Mails mit Beilage versenden

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Mails mit Beilage versenden

Forumthread: Mails mit Beilage versenden

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread