Where did you install Firefox from? Help Mozilla uncover 3rd party websites that offer problematic Firefox installation by taking part in our campaign. There will be swag, and you'll be featured in our blog if you manage to report at least 10 valid reports!

Поиск в Поддержке

Избегайте мошенников, выдающих себя за службу поддержки. Мы никогда не попросим вас позвонить, отправить текстовое сообщение или поделиться личной информацией. Сообщайте о подозрительной активности, используя функцию «Пожаловаться».

Learn More

personalizzazione mail create in Access

  • 2 ответа
  • 0 имеют эту проблему
  • 2 просмотра
  • Последний ответ от fabio.capuzzo

more options

Buonasera a tutti e grazie in anticipo a chi vorrà darmi una mano. Utilizzo Microsoft Access e trovo utile inviare delle email direttamente dai report che contengono le info che voglio spedire (Ordini o reportistica di altro genere)

SITUAZIONE ATTUALE Attualmente utilizzo un pulsante "Invia Mail" che, tramite codice VBA, apre Thunderbird e compone i campi A;Oggetto;Corpo, allego poi manualmente un PDF e Invio.

COSA VORREI Vorrei comporre i campi "A" e "Oggetto" con dati personalizzati da codice VBA in Access. Sarebbe poi bello creare un PDF con lo stesso codice e allegarlo in automatico alla mail (in Thunderbird) Possibilmente personalizzare anche qualcosa nel corpo ma è meno importante.

Ecco il codice:

Private Sub CmdInviaOrdine_Click()

Dim percorsoTB As String Dim thund As String


If Len(Nz(Dir("C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"), 0)) > 0 Then percorsoTB = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe "

Else percorsoTB = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe "

End If


thund = percorsoTB & _ "-compose " & """" & _ "to='ciccio@bomba.com'," & _ "cc=," & _ "bcc=," & _ "subject='Ordine Cliente'," & _ "attachment=," & _ "body='Ciao, trasmetto ordine e rimango in attesa di relativa conferma. Grazie.'" & """"

Call Shell(thund, vbNormalFocus)


End Sub

Grazie ancora.

Fabio

Buonasera a tutti e grazie in anticipo a chi vorrà darmi una mano. Utilizzo Microsoft Access e trovo utile inviare delle email direttamente dai report che contengono le info che voglio spedire (Ordini o reportistica di altro genere) SITUAZIONE ATTUALE Attualmente utilizzo un pulsante "Invia Mail" che, tramite codice VBA, apre Thunderbird e compone i campi A;Oggetto;Corpo, allego poi manualmente un PDF e Invio. COSA VORREI Vorrei comporre i campi "A" e "Oggetto" con dati personalizzati da codice VBA in Access. Sarebbe poi bello creare un PDF con lo stesso codice e allegarlo in automatico alla mail (in Thunderbird) Possibilmente personalizzare anche qualcosa nel corpo ma è meno importante. Ecco il codice: Private Sub CmdInviaOrdine_Click() Dim percorsoTB As String Dim thund As String If Len(Nz(Dir("C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"), 0)) > 0 Then percorsoTB = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe " Else percorsoTB = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe " End If thund = percorsoTB & _ "-compose " & """" & _ "to='ciccio@bomba.com'," & _ "cc=''," & _ "bcc=''," & _ "subject='Ordine Cliente'," & _ "attachment=''," & _ "body='Ciao, trasmetto ordine e rimango in attesa di relativa conferma. Grazie.'" & """" Call Shell(thund, vbNormalFocus) End Sub Grazie ancora. Fabio

Все ответы (2)

more options

Ciao, non uso Access ne VisualBasic per cui non provo neppure a darti suggerimenti. Forse potresti avere maggior fortuna su https://forum.mozillaitalia.org/ dove è presente un maggior numero di utenti.

Полезно?

more options

Grazie comunque.

Полезно?

Задать вопрос

Для ответа на сообщения вы должны войти в свою учётную запись. Пожалуйста, задайте новый вопрос, если у вас ещё нет учётной записи.