Mail erstellen per Makro

[Dami]

Hi Fritz-Ha,

mehrere Adressen ja, aber nicht in "An:"
denn:
MailMessage.setRecipient(sAnschr) ist ein String

aber in Cc und BCc schon; in dem du sCcAnschr und/oder sBCcAnschr
als Array definierst

MailMessage.setCcRecipient(sCcAnschr)
MailMessage.setBCcRecipient(sBCcAnschr)

Gruß
Dami

[Strunz]

Hallo,

ich bräuchte auch sowas!
Könnt Ihr mir den Code senden, Danke

Mfg
Strunz

[mikele]

Hallo,
@Strunz: siehe erster Beitrag

[Strunz]

Hallo,

ich habe diesen Code hier gefunden:
viewtopic.php?t=13200

Code: Alles auswählen

        sPMUA = "/usr/bin/icedove"
        sEmail = "empfaenger@example.example"
        sSubject = "Ich bin ein Betreff"
        sAttachment="file:///path/to/att1,file:///path/to/att2"
        sBody = "Hallo ich bin der Body"

        sMessage = sPMUA & _
		" -compose to=" & sEmail & _
		",bcc=user@example.example" & _
		",subject='" & sSubject & "'" & _
		",attachment='"& sAttachment & "'" & _
		",preselectid=id10" & _
		",body='" & sBody & "'" 
	
		Shell(sMessage)

Bei "Shell(sMessage) kommt folgende Fehlermeldung:

Datei nicht gefunden (Laufzeitfehler)!

Was muss ich tun???

Mfg
Strunz

[Strunz]

Ich habe das jetzt geändert:

Code: Alles auswählen

Dim sPMUA As String
Dim sEmail As String
Dim sSubject As String
Dim sAttachment As String
Dim sBody As String 
Dim sMessage As Object
Dim oShell As Object

        
        oShell = createUnoService("com.sun.star.system.SystemShellExecute")

        sPMUA = "/Applications/Thunderbird.app/Contents/MacOS/thunderbird"
        sEmail = "strunzenolwin@gmx.de"
        sSubject = "Ich bin ein Betreff"
        sAttachment="file:///Users/strunz/Documents/Andrea-Wages.jpeg"
        sBody = "Hallo ich bin der Body"

        sMessage = sPMUA & _
		" -compose to=" & sEmail & _
		",bcc=user@example.example" & _
		",subject='" & sSubject & "'" & _
		",attachment='"& sAttachment & "'" & _
		",preselectid=id10" & _
		",body='" & sBody & "'" 
	
	     oShell.execute(sMessage)

End Sub

Jetzt erhalte ich folgende Fehlermeldung:

Objektvariable nicht belegt (sMessage = sPUMA usw)

Wer kann mir weiterhelfen?

MFg
Strunz

[gogo]

sMessage ist ein String und kein Objekt. Du kannst alles als Variant definieren:

Code: Alles auswählen

Dim sPMUA, sEmail, sSubject, sAttachment, sBody, sMessage, oShell

wenn Du kein "Option explicit" im Modul verwendest, musst Du Variablen auch gar nicht definieren

[Strunz]

Code: Alles auswählen

Sub Mail

Dim sPMUA As Variant
Dim sEmail As Variant
Dim sSubject As Variant
Dim sAttachment As Variant
Dim sBody As Variant
Dim sMessage As String
Dim oShell As Object

        
        oShell = createUnoService("com.sun.star.system.SystemShellExecute")

        sPMUA = "/Applications/Thunderbird.app/Contents/MacOS/thunderbird"
        sEmail = "strunzenolwin@gmx.de"
        sSubject = "Ich bin ein Betreff"
        sAttachment="file:///Users/strunz/Documents/Andrea-W.jpeg"
        sBody = "Hallo ich bin der Body"

        sMessage = sPMUA & _
		" -compose to=" & sEmail & _
		",bcc=user@example.example" & _
		",subject='" & sSubject & "'" & _
    	",attachment='"& sAttachment & "'" & _
		",preselectid=id10" & _
		",body='" & sBody & "'" 
	
	     oShell(sMessage)

End Sub

Jetzt erhalte ich folgende Fehlermeldung:

Eigenschaft oder Methode nicht gefunden!

oShell(sMessage)

[craig]

crossposting
Das Posten des gleichen Sachverhalts in mehreren Foren (Crossposting) sowie Thread-Pushing ist unerwünscht.

http://document-foundation-mail-archive ... 92135.html

[gogo]

Code: Alles auswählen

shell(sMessage)

[Strunz]

Code: Alles auswählen

shell(sMessage)

Jetzt kommt "Eigenschaft oder Methode nicht gefunden"!